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UVSP PROGRAM 


CONTRACT NAS5-24119 
FINAL REPORT 
PART I 

HARDWARE PROGRAM 
The Lockheed Role in UVSP 

The Ultraviolet Spectrometer / Polarimeter Instrument (UVSP) for the Solar Maxi- 
mum Mission was based on re-use of the engineering model of the high resolution ultraviolet 
spectrometer developed at the University of Colorado for the OSO-8 mission. Lockheed 
became involved in the UVSP program when Dr. Bruner, who had been the principal inves- 
tigator on the OSO-8 program, joined the Space Astronomy Group at the Lockheed Palo 
Alto Research Laboratory. Lockheed assumed four distinct-responsibilities in the UVSP 
program; technical evaluation of the OSO-8 engineering model, technical consulting on the 
electronic, optical and mechanical modifications to the OSO-8 engineering model hardware, 
design and development of the UVSP software system, and scientific participation in the 
operations and analysis phase of the mission. Lockheed also provided technical consulting 
and assistance with instrument hardware performance anomalies encountered during post 
launch operation of the SMM observatory. Appendix 1 to this report contains an index to 
the quarterly reports delivered under the contract, and serves as a useful capsule history 
of the program activity. 

Initial Evaluation of the OSO-8 Hardware 

The initial evaluation of the OSO-8 engineering instrument was carried out at the 
Lockheed Palo Alto Research Laboratory prior to delivery of the instrument to General 
Electric, the prime contractor in preparing the UVSP hardware. This initial evaluation 
established a performance baseline for the spectrometer, and revealed some problems with 
the existing electronic hardware. These tests focused on the performance of the wave- 
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length drive, particularly the computer controlled slew mode, which had given problems 
in operation of the OSO-8 instrument in orbit. 

We also performed resolution tests on the spectrometer, using a mercury 198 lamp as a 
narrow line source. The resonance line at 2537 Angstroms was observed in first order, and 
found to have a width of about 0.025 A, a value consistent with its original performance 
whan assembled at the University of Colorado. 

Once the instrument had been delivered to GE, we supported the disassembly and 
inspection of the spectrometer with the specific objective of discovering the source of stray 
light that had affected the OSO-8 performance. This study revealed a design problem 
in the baffle system which, when coupled with certain misalignment conditions, would 
allow extreme off-axis rays from the entrance slit to be reflected by the Ebert mirror 
directly into the exit slit. The misalignment cannot be discovered when the instrument is 
fully assembled, as it is automatically compensated by adjusting the grating shaft angle 
during wavelength calibration. Laboratory calibration sources are too weak to reveal the 
stray light, and the condition only became known after the OSO-8 spectrometer had been 
launched. Our recommendations for correcting the condition were followed by the GE 
design team and were successful in controlling stra\ light in the UVSP instrument. 

Optical System 

In order to facilitate an understanding of the stray light problem and to serve as 
background for the discussion of the hardware modifications, w’e will briefly discuss the 
OSO-8 instrument hardware and optical system. A diagram of the OSO-8 instrument is 
shown in Figure 1. The OSO-8 spectrometer was an Ebert -Fast ie system with a 1 meter 
focal length. It had an aperture ratio of f/19 in the plane of dispersion, and f/15 in the 
orthogonal direction. It was fed with a cassegrainian telescope of 12 cm aperture and 
1.8 meter focal length. Dispersion was produced b\ a diffraction grating with a ruling 
frequency of 3600 grooves per millimeter operating in the second order for the range 1200 
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Figure 1. 0S0-8 Instrument Diagram 




to 1800 Angstroms. The spectrometer had fixed, straight entrance and exit slits of 8 micron 
width, corresponding to a wavelength interval of 0.01 Angstroms, again in second order. A 
movable slit mask, or dekker, was provided to allow the effective length of the slit to vary 
between about 40 microns and 8 millimeters, corresponding to an angular range of about 
5 arc sec to 15 arc minutes on the sun. The wavelength passed by the spectrometer could 
be varied by rotating the grating about a shaft parallel to the grating grooves. Radiation 
emerging from the exit slit of the spectTometeT was detected by a sealed photomultiplier 
tube operating in the pulse counting mode. 

The control system for the OSO-8 spectrometer was based on a small, dedicated, 
general purpose computer which performed all of the primitive instrument functions under 
control of a flight software package. OSO-8 was the first such instrument to be flown in the 
NASA space program, and paved the way for the wide scale use of microprocessor control 
that characterizes contemporary instruments. 

Mechanical System 

The OSO-8 optics were supported by a modular structural system consisting of six 
major assemblies; the telescope, the spectrometer case, the master metering bracket, the 
wavelength drive, the detector assembly, and the Eberl mirror cell. The heart of the system 
was the master metering bracket. The grating assembly, which included the grating, the 
grating cell and its precision bearings and the grating arm. was built into the master meter- 
ing bracket. The master metering bracket was kinematically mounted to the central wall of 
the instrument case. The grating drive was supported from three posts on the master me- 
tering bracket that protruded through holes in the central wall between the spectrometer 
compartment and the wavelength drive compartment. The telescope was also cantilever 
mounted to the master metering bracket via a set of three posts that passed through 
holes between the telescope cavity and the spectrometer compartment. The slit assem- 
bly w'as fastened to the front of the master metering bracket, just behind the telescope. 
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In this way, all major optical components except for the Ebert mirror were maintained 
in strict alignment through a single compact and extremely stiff structural element that 
was not subject to externally induced distortions of the instrument case. Moreover, this 
master bracket and the modules it carried could be assembled outside of the instrument 
case so that critical alignment could be done on a surface plate with standard mechanical 
metrology techniques. 

Wavelength Drive 

The wavelength drive was based on a screw and follower nut of a type that is manu- 
factured by the Moore Special Tool Co. for use in their line of ultra-high precision machine 
tools and measuring engines. The screw was supported by multiple ball bearing races in a 
titanium housing whose thermal expansion coefficient, closely matched that of the nitrided 
steel screw. The screw was coupled by a flexible metal bellows universal joint to the output 
of a precision spur gear reducer which, in turn, was driven by a 48 step brushless four phase 
DC stepping motor. A precision flat carried by the follower nut assembly contacted a steel 
ball mounted on the end of the grating arm, causing the latter to rotate the grating when 
the flat was moved by rotating the screw'. Each step of the motor moved the flat approxi- 
mately 15 microinches, altering the spectrometer wavelength setting by 5 milliangstroms. 
Our tests at Palo Alto demonstrated that the reproducibility of the drive for multiple set- 
tings of the screw' was of the order of 5 microinches (1 sigma) or about 2 milliangstroms. 
The geometry of the arm, ball and flat w r as arranged so that they functioned as a sine-bar. 
forcing a linear relationship between wavelength setting and the screw position. 

Since the screw had to be oil lubricated in order to function, the entire screw drive 
system w’as enclosed in a hermetically sealed housing. A stainless steel bellows allowed the 
nut assembly and flat to travel longitudinally and also prevented the nut assembly from 
rotating about the screw axis. The enclosure was fitted with redundant pressure relief 
valves to bleed the air out of the interior of the drive when the instrument entered the 
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vacuum of space. These pressure relief valves were spring loaded so as to close after the 
initial venting was complete. 

Stray Light Problem 

The optical condition that, let to the stray light problem may be understood in terms 
of the diagram in Figure 2. which shows the effect of rotating the Ebert mirror through a 
small angle E about the vertex. This rotation causes the center of curvature to move up 
in the figure by an -amount 2xExF where F is the focal length. This, in effect, redefines 
the axis of symmetry, since the spherical Ebert mirror has no unique axis. The new axis 
of symmetry, which passes through the center of curvature and the midpoint between 
the slits, will be displaced from the old one by an angle 2E. If the grating is rotated by 
this same amount, then the image will again fall on the exit slit. Thus, an initial angular 
alignment error of the Ebert mirror cannot be discovered in the assembled instrument since 
the grating shaft angles are initially determined by scanning the spectrum and identifying 
lines. The error 2E will be absorbed in the calibration constants. 

Notice that the new axis of symmetry of the system no longer intersects the Ebert 
mirror in its physical center as it would have in the case of nominal alignment. This means 
that a ray from the entrance slit to the displaced vertex will be reflected through the exit 
slit without ever striking the grating. These direct rays are normally blocked in an Ebert - 
Fastie spectrometer by a series of 3 stops, Si, S2, and S3 as shown. Due to a design error 
in the OSO-8 system, the stop Si was too far from the chief ray. allowing radiation from 
the entrance slit to strike the Ebert mirror below the original axis of symmetry. Although 
the stop S2 would normally have blocked the undesirable central ray. the misalignment 
condition discussed above made S2 ineffective. Existence of this misalignment condition 
and of the improper location of the stop Si were confirmed during the instrument disas- 
sembly at GE. Once the condition was understood, the corrective measures were clear. Si 
was placed in its proper location, the Ebert mirror was carefully aligned to center the axis 
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Figure 2 Effect of Ebert Mirror Misalignment 


of symmetry, and stop S2 was redesigned to provide superior blocking of the central ray. 


Modifications Required for the UVSP Mission 

The UVSP instrument differed from its OSO-8 incarnation in four important ways: it 
used a gregorian telescope with an articulat ed secondary mirror instead of the original fixed 
cassegrainian telescope, it had a polarimeter capability, it had five detector channels instead 
of the two of OSO-8 and finally, it had a mechanism to interchange slits. It also featured 
a second generation operating system in the instrument computer. The polarimeter has 
been described by Calvert, et ah, 1979, Opt. Engin., 18, 287). Addition of the polarimeter 
represented a major new capability with respect to OSO-8. The articulated telescope 
secondary was required both because the SMM spacecraft lacked a raster capability, and 
because rastering the spacecraft would be incompatible with several of the other SMM 
instruments. The multiple detector array and the interchangable slits allowed us to define 
polychromatic positions for which two or more lines could be observed simultaneously. A 
diagram of the UVSP configuration is given in Figure 3. 

Control of Sensitivity Loss 

Many of the changes introduced into the UVSP instrument were designed to control a 
severe sensitivity loss experienced in orbit by the OSO-8 instrument. OSO-8 lost nearly two 
decades of sensitivity during the first week after launch, and the sensitivity at H-lyman 
alpha continued to drop by a factor of two every two weeks for the next few months. 
The cause of this severe and continuing loss was postulated to be the polymerization 
of outgassing contaminants onto the surfaces of the optics, especially in the telescope. 
Tests conducted at GSFC had showed that the degradation rate on test mirrors subjected 
to UV radiation under vacuum was controlled both by the concentration of outgassing 
effluent in the vicinity of a surface, and by the level of UV irradiance on that surface. The 
contamination rate in a cassegrainian instrument will be most severe on the secondary 
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Layout of Ultraviolet Spectrometer and Polarimeter 


mirror because of its proximity to the prime focus. Here, the irradiance is concentrated 
by the ratio of the unocculted area of the primary to the area of the illuminated portion 
of the secondary mirror. In OSO-8, this concentration factor was nearly twenty to one. 

Use of gregorian. rather than cassegrainian optics allowed us to put a field stop at the 
prime focus of the UVSP telescope. This stop served to intercept most of the flux collected 
by the primary, passing only an 8 x 8 arc minute field to the secondary. In this way. most 
of the heat load from the incoming solar beam was captured by the stop and conducted 
away from the instrument structure by a system of copper bars and heat pipes. A more 
important effect of the field stop was to reduce the flux load on the secondary mirror so 
as to reduce the rate of sensitivity loss due to polymerization of outgassing contaminants. 
By carefully sizing the field stop, it was possible to make it large enough to intercept the 
solar disk for all pointing positions on the sun, yet small enough to fall completely within 
the shadow cone formed by the secondary mirror and its mount. The field stop reduced 
the flux load on the secondary mirror to less than 1.5 solar constants, and allowed a field 
of 256 x 256 arc seconds to be scanned by the secondary without vignetting. 

Other measures taken to reduce the sensitivity loss due to contaminants were based 
on the philosophy of treating the instrument as an ultra-high vacuum system that needed 
to be baked out prior to being placed into service. An aperture door was added to the 
front of the instrument to keep solar radiation from entering until after the bakeout was 
complete. The existing structure heaters were replaced w-ith heaters of higher capacity, 
and heaters were added to the backs of the two telescope mirrors. Personnel assembling 
and handling the instrument w'ore cotton or nylon gloves, rather than the vinyl gloves 
that had been used on OSO-8, as the \inyl had been shown to contaminate surfaces with 
plasticizers. 

An in-orbit bakeout procedure was defined in three stages. In the first, the instru- 
ment heaters would be operated for several days with the aperture door closed during the 



daylight portion of each orbit. The aperture door would be opened during each eclipse in 
order to assist in venting the payload cavity. This phase was designed to remove the bulk 
of the water vapor and other condensables from the main structure. In the second phase, 
the structure heaters would be turned off. but the mirror heaters left on so as to drive away 
residual contaminants left on the mirror surfaces. In the third phase, the structure heaters 
would be turned on as needed to maintain the instrument at its operating temperature, 
which was to be several degrees below the bakeout temperature. After the system was 
stabilized at the operating temperature, the telescope door would be opened and scientific 
observations started. 

This philosophy was generally successful in lowering the sensitivity loss rate substan- 
tially below that of its OSO-8 predecessor. Some loss was noted, however, a few weeks 
after launch, and has been tentatively traced to a failure to carryout the bakeout proce- 
dure fully through the cool-down phase. The case heaters were left on to continue the 
outgassing in parallel with early operations of the instrument. When the satellite's orbit 
precessed into an orientation that provided a longer exposure to the sun during each orbit, 
the case temperature rose above the bakeout limit. We have postulated that this caused 
the residual internal pressure in the wavelength drive enclosure to rise, forcing the pressure 
relief valves to open, venting oil laden air into the instrument case. The case temperature 
was lowered as soon as the effect was noted, but it was. of course, too late to stop the de- 
gredation of reflectivity that had already occurred. Armed with the wisdom of hindsight , 
we now' recognize that it would have been a good idea to provide for overboard dumping 
of the air vented from the wavelength drive mechanism. It is also clear that the bakeout 
procedure w-as fundamentally sound, and should have been followed more strictly. 

Other Modifications 

Another modification made to the OSO-8 baseline instrument was in the Ebert mirror 
cell. The OSO-8 version of the cell was provided with a focussing mechanism based on the 
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proving ring principle used in many Ebert-Fastie slit mechanisms. Although conceptually 
sound, the OSO-8 mechanism was found to have an undesirable flexure mode that reduced 
the position stability of the Ebert mirror. We modified the cell to remove the focus 
capability in favor of a much stiffer structure. Final focus and alignment were set in the 
laboratory by adjusting the thicknesses of spacers between t.he Ebert mirror cell and the 
spectrometer case. The only in-orbit focus capability lay in our ability to set the operating 
temperature of the instrument by controlling the case heaters. 

The final modification that should be mentioned was the addition of a co-alignment 
system (the CAS) that supported the UVSP instrument in the SMM instrument support 
plate. This system was added at the suggestion of the SMM program manager, as it 
allowed him t.o delete what would have otherwise been a very expensive environmental 
test to assure that the UVSP would remain co-aligned with the other SMM instruments 
during and after launch. The CAS was a two axis gimbal system that fastened to the 
narrow edge of the UVSP case in the vicinity of the master metering bracket. Structural 
analysis of the case and CAS attachment was performed by GE and showed that the 
scheme would not degrade the mechanical integrity or stability of the case. 

Optical Performance Evaluation 

Lockheed performed an advisory and assistance role during the optical alignment, per- 
formance evaluation and testing of the UVSP. Our work on the alignment of the telescope 
is discussed in our progress report for the first quarter of 1978. and will not be treated at 
length here. The performance evaluation of the completed instrument began in the first, 
quarter of 1979 and was carried out at the Goddard Space Flight Center. Here, we were 
concerned with evaluating the focus and resolving power of the telescope and of the spec- 
trometer. Telescope focus was assessed with a foucault test, using an incandescent lamp to 
backlight the entrance slit. The knife edge was placed at the focus of an auxiliary telescope 
which had previously been set to the infinity focus by autocollimation. Visual inspection 
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of the aperture illumination pattern suggested the presence of residual aberrations (prin- 
cipally coma), but at a level that was within the UVSP performance requirments. The 
focus was judged to be acceptable. 

Focus of the spectrometer was assessed with a modified form of the Hartmann test, 
discovered accidentally during the course of performance evaluation. In this test, the 
telescope was illuminated with a “Pen Ray“ mercury lamp, oriented such that its long 
dimension was parallel to the rulings on the diffraction grating. The lamp was uncolli- 
mated, and was placed a few centimeters in front of the telescope aperture. The lamp 
was mounted on a rack and pinion mechanism so that it could be translated in a direction 
perpendicular to the rulings. The optics of the telescope, together with the entrance slit, 
acted to admit to the spectrometer, a single fan of rays that was parallel to the grating 
rulings; i.e. a sagittal fan. Motion of the lamp with the rack and pinion mechanism swept 
this fan across the grating. If the spectrometer was in focus, then the position of the 
spectrum in the focal plane would be independent of where the fan struck the grating. If. 
however, the focus was incorrect, as proved to be the case, then the image of the spectrum 
would appear to move when the lamp position was changed. By measuring the position of 
a spectrum line on the wavelength drive as a function of the position of the lamp, we were 
able infer both the amount and the direction of the focus error in the spectrometer. The 
focus error was corrected on the first attempt by re-shimming the Ebert mirror cell. 

In the calibration of the completed UVSP spectrometer, Lockheed played primarily 
a supporting role, assisting in the operation of the instrument in a calibration system 
designed and prepared by GSFC personnel. Lockheed personnel were in residence at 
GSFC during the calibration activity, helping both with the installation and checkout of 
instrument control software and with the collection of the primary calibration data set. 
Responsibility for the reduction and analysis of the calibration data lay with the GSFC 
project scientist, and will not be discussed here. 
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During the post launch checkout of the SMM instruments, Lockheed personnel were 
in residence at GSFC. Mr. R. Rehse, who developed the flight software package for the 
instrument, carried the responsibility of verifying the operation of the instrument under 
software control, identifying and correcting logic problems that came to light as a result 
of in-orbit experience. Dr/s Bruner and Schoolman each spent periods of time in the 
SMM Experiment Operations Facility (EOF), taking part in the observatory operation, 
developing quick-look data inspection procedures as required by the newly acquired data. 
These procedures were typically written, checked out. and installed in the PDP-11/34 
computer in the EOF when complete. Schoolman also supported the command generation 
software package, making modifications as needed to improve its operation. Subsequent 
analysis codes, developed during the course of scientific investigations carried out by the 
Lockheed experimenters, have been included in the relevant quarterly reports w'hen they 
w'ere felt to be of general utility. The software system will be discussed in Part II of this 
report, and the program of scientific investigations is treated in Part III. 
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PART II 


UVSP SYSTEM SOFTWARE 
Software Systems Approach 

The UVSP software system was based on experience with the UV spectrometer ex- 
periment on OSO-8. and many of the elements of that system were carried over directly to 
the UVSP system. The software system has two major components; ground test software, 
and mission software. The ground test software included a test interpreter language which 
operated the instrument in its primitive modes, and a set of hardware test procedures 
written in the test interpreter language that were used to test individual instrument com- 
ponents. The test interpreter was also used to operate the instrument during performance 
evaluation and calibration. 

The mission software system includes a Command Generation System, a Flight Soft- 
ware Package, a Data Acquisition Package, a Data Reformatting Package, and three data 
analysis languages. The heart of the UVSP mission software system is the flight computer 
software package, which contains all of the control logic required for making solar observa- 
tions. The computer executes observing sequences defined by an observing list contained 
within its memory. This list is loaded from the ground on a daily basis, according to the 
needs of the overall SMM observing strategy. Contents of the observing list are prepared 
with another software package called the Command Generation System, which translates 
the observing requirements from human readable form into the bit packed format required 
by the flight software package. When an experiment is executed by the computer, the data 
stream is tagged with identifying information so that it can later be automatically sorted 
into logical data files. 

The data stream from the entire SMM observatory is transmitted to the experiment 
operations facility via high speed data lines either in real time during ground contacts 
with the spacecraft, or as tape recorder playback data that has been recorded at. the 
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ground tracking stations and then re-transmitted at later times. The incoming telemetry 
stream is scanned by the Data Acquisition Package, which captures the relevant portion 
and stores it in a large disk memory. Once the data is resident on the disk, it is processed 
by the Reformatting Package which uses the identifying information to block the data 
into logical experiment sequences, arrange it into formats convenient for analysis, append 
record headers containing the identifying information and other pertinent spacecraft data, 
and store the results in disk files. The data analysis languages allow an experimenter to 
readily access experiment data files to inspect the results in tabular or graphic form, or 
as images where appropriate. The languages are also general purpose computational tools 
that can be used to mathematically manipulate the data in order to extract its physical 
information content. 

UVSP Test Interpreter Language 

This software package was prepared and delivered under a previous contract, but is 
discussed briefly here for completeness. It was originally written for the OSO-8 program 
at the University of Colorado. The purpose of the package was to provide an easy-to- 
use system that could be used to operate the mechanisms of the spectrometer during 
instrument development and testing, and to inspect the resulting telemetry stream. The 
software is written in Macro, the PDP-11 assembly language, and operated under the 
DOS disk operating system. It permitted one to send commands via any of the command 
interfaces, accepting its input in the form of mnemonics that were abbreviations of the 
respective command functions. Commands that required the transmission of a numerical 
value would have the value appended to the mnemonic. Commands could be transmitted 
directly from the keyboard, or could be grouped together into a procedure and transmitted 
as part of an automated sequence. When a procedure was being run, the package would 
accept telemetry data from the instrument, loading it into a buffer that could be accessed 
by instructions in the test language. It was also possible to capture and store data on 
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disk files for more extensive later analysis. The language was provided with rudimentary 
programming instructions, including loop and branch capability, and simple arithmetic 
operations. Subroutine jumps were not implemented as such, though we found that they 
could be made through an indirect jump to a numerical label. Lockheed work on the 
software package consisted of implementing the new set of mnemonic instructions required 
by the revised electronic package, accomodating the new telemetry format and rate, and 
interfacing it to the new spacecraft simulator. Ideally, the package would have been re- 
written so that it would operate under the RSX-llM operating system rather that DOS. 
We elected to use it in the DOS environment both to save cost and to assure that the 
schedule would be met, although this decision left us with a somewhat awkward situation 
in which we had to translate the data files and change operating systems in order to 
evaluate the data with one of the more powerful data analysis languages. 

Flight Software Package 

The flight computer for the OSO-8 instrument has, for historical reasons, been known 
as ‘ Junior” or Jr for short. We followed this notation throughout the UVSP program, and 
will use it in this document. The architecture of the Jr mission software was studied early 
in the development effort to determine its optimum form. Parts of the code, including 
wavelength drive and double precision arithmetic subroutines and the monitor section, 
were taken directly from the OSO-8 code. We added an extensive conditional response 
facility called the command mode, which allows the scientist to specify a flexible experiment 
whose actual execution will depend on the conditions detected from the sun. A sequence 
to locate the brightest point in a field and use it as a target for subsequent observations 
is an example of the use of the command mode. This type of sequence w’as heavily used 
during the mission. 

The parameters that specify the sequence of device motions and other operations 
needed to define an observing mode were packed into a nine word parameter block con- 
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taining twenty different parameters. New control software was written to unpack the 
parameter block, configure the electronics and mechanisms, and load the appropriate loop 
counters. Goals defined for the flight software package were to accomodate the new hard- 
ware, to implement the new observing modes that it made possible, and to provide at least 
the same level of control as allowed by the OSO-8 software. 

The following discussion of the UVSP flight software package is taken from the paper 
by Woodgaie et al. (Solar Phys. 1980, 65, 73) discussing the instrument. The software sys- 
tem for UVSP is similar to that of the OSO-8 instrument from w'hich it was derived. The 
OSO-8 operating system w'as described by Hansen and Bruner (Space Science Instrumenta- 
tion, 1979, 5, 3). The overall organization of the flight software package is showm in Figure 
4. Control of the program is directed by th monitor which processes normal instrument 
and timing interrupts, initiates and terminates observing sequences, and controls auxiliary 
functions such as operation of instrument heaters, etc. Important sub-functions of the 
monitor are the DMA interrupt processor, which accepts and interprets the one-word mes- 
sages from the spacecraft through which the instrument operation is externally directed: 
and the command mode processor, which decodes the pseudo-instructions of the command 
mode language and calls up the appropriate subroutines implied by each command code. 

The remainder of th code consists of three parts: the control subroutines, a set of 
utility subroutines, and the observing list. The control subroutines contain the control 
loops for each of the mechanisms. The ordering of the control loops as well as the extent 
and increment size for each is set by the nine word parameter block discussed above. The 
utility subroutine section contains the subroutines for the operation of all of the instrument 
mechanisms and for the control of the data flow to the telemetry system. Approximately 
75 percenl of the 4096 word memory is devoted to the monitor and the various subroutines. 

Most of the remaining quarter of the memory is set aside as an observing list for the 
storage of the parameter blocks corresponding to the observing modes needed for a day s 
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observations. Contents of the observing list is divided into three major sectors, called the 
A, B, and C lists respectively. Each list is further divided into 16 sub-sectors, each with 
its own entry point. The A and B lists were each intended to hold the set observing modes 
that would typically be required to carry out a single day's operation, with the B list being 
loaded while the A list was running, and vice-versa. The C list was intended to hold a set 
of resident operating modes that could be loaded and held in readiness for use in observing 
rare events for which a quick response would be needed. The last 64 words of memory are 
a software status buffer which is read out synchronously into the telemetry system. This 
status buffer provided much the additional information needed to identify the operating 
mode of the instrument and its current state. The structure of the observing list is shown 
in Figure 5. 

The command mode, which provides for data dependent control of the instrument, 
consists of a set of pseudo-instructions that can be entered in the observing list along 
with the experiment parameter blocks. These pseudo-instructions are one word coded 
subroutine calls to the master program. Through them, the experimenter has access to a 
block of 32 words of storage which is set aside as a user memory. User memory locations 
are allocated for the raster mechanism position, a wavelength drive reference position, 
flare coordinates from the Hard X-rav Imaging System instrument (HX1S), spacecraft 
flare status, and a number of critical parameters derived from the observations. Eight of 
the words are assigned as general use registers. Pseudo instructions are defined to move 
data from one place in user memory to another, to initiate an observing mode (parameter 
block), to transfer control to another pseudo-instruction or group of instructions, and to 
insert messages into the telemetry stream. A limekeeping function is also available. A list 
of pseudo-instructions and their corresponding bit patterns is given in Figure 6. Contents 
of the parameter block are given in Figure 7. 

During the execution of an observing sequence, the monitor continually scans the 
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Figure 6. Jr. Command Mode 
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Figure 7a. SMM OBSERVING LIST PARAMETER BLOCK STRUCTURE 



PARAMETER BLOCK 
WORD 1 


CAL INTERVAL | CONTROL SEQUENCE WD 

16 13 12 1 


Cal Interval 

- 0 disables calibration offset stepping 

> defines 2 n - 1 as the calibration interval 

Control Sequence Word 

12 bit field la subdivided into four 3 bit fields 
Each 3 bit field uses MS bit as calibration internal count fl*g 
Only one 3 bit field may have the calibration flag bit set. 

No calibration flag bits is legal 

Low 2 bits of each 3 bit field specifies the device control loop sequence 
Bits 1-3 are assigned to VLD 

Bits 4-6 are assigned to Raster Y (outer gimbal) 

Bits 7-9 are assigned to Raster X (inner gimbal) 

Bits 10-12 are assigned to Polarlmeter Rotation 
Sequence codes in the least significant 2 bits of each 3 bit field 

0 Inner nested loup 

1 Next to inner nested loop 

2 Next to outer nested loop 

3 Outer nested loop 


PARAMETER BLOCK 
WORD 2 



; Interval 1/2 Detectors coiuait mr code for detector routing and. power 

j 0 none 

t 1 Dct. 1 

2 Det. 2 

3 Det. 3 

4 De t . 4 

5 Det. 5 

6 none 

, 7 clock 

10 Det. 1/2 For detector pair ordering, the first detector 

1 11 Dct. 2/1 should be on blue side of line, second detector 

12 Del. 1/4 on red Bide of line. 

13 Det. 4/1 

) 14 Det. 2/3 

| 15 Dct. 3/2 

16 Dct . 3/4 
I 17 Dct. 4/3 


X 



PARAMETER BLOCK, WORD 2 (CONTINUED) j r 

, * bit controls experiment number Incrementing for multiline scans ' i t ‘ 

0 surpresses ‘incrementing experiment number 

1 experiment number increments - normal condition • j ’ ■ 

# bit is unused 

; I 

Data Format is a 6 bit code related to experiment type. Not used for control ' ; 

purposes. j * 


PARAMETER BLOCK 
WORD 3 



OFS Is a bit specifying an offset from a previous wavelength position 

0 Wavelength is direct from parameter block words 4 and 5 

1 Wavelength is an offset from a local or global maximum result 

Offset is 16 bits in word 4 
Local/global selection bit is in word 5 

Number of Wavelength Drive Increments 

0 disables operation of WLD control loop - constant X used 
>0 n+1 observations are mode In control loop 


WORD 4 

LEAST SIGNIFICANT WAVELENCTII STEP POSITION 

Lj_ - ; | 

Wavelength Step Position/Offset 

For OFS bit (offset) - 0 this is 16 bits of WLD position 
For OFS bit - 1 this is 16 bit WLD offset (2's complement). 
Offset base value may be selected - see word 5 

PARAMETER BLOCK 
WORD 5 


value of experiment repetitions 

WLD* is dual purpose field. 

For OFS - 0 (no offset) this is the most significant bit of WL position 
For OFS ■ 1 (offset) this selects whether a local or global WL value la 
selected 

0 selects the global wavelength base for offset experiments 

1 selects the locol wavelengths base for offset experiments 



Number of complete repetitions provides 14 bit 
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PARAMETER BLOCK 
WORD 6 


POLR STEP QUAN. 

WLD STEP SIZE 

PL STEP SIZ 

TACH INTRVL 

It U M 1 

Polarlmeter Step Quantity 

L . 4 

3 1 


0 disables polnrlmoter control loop 
n>0 n cycles of polnrlmoter control loop are made 

WLD Step Size 

Simple count of WLD steps for each pass of WLD control loop 
PL Step Size 

n + 1 steps are made for each pass of enabled polarlmeter loop 
Tach Interval 

0 disables tachogram servo loop 

>0 causes 2 n control loop passes to occur between WLD servo corrections. 


RASTER X STEP QUAN 


WORD 7 


RASTER Y STEP QUAN 


It 1 t I 

Raster X Stop Quan. 

0 disables X raster control loop 

0 causes n raster positions before nest control loop level 
Raster Y Step Quan. same as X Step Quan. 


PARAMETER BLOCK 
WORD 9 


T 


CATE TIME COUNT DET. BALANCE CLOCK 


4 3 


Gate Time Count 

Value used to set gate time count down register 
Det. Balance 


Signed 4 bit value applied to balance detector output for tachogram 
servo control and user mode velocity values. 

The equation for 1st detector Is: 

((30 + Det. Bal) * Blue Counts)/30 

The equation for 2nd detector Is: 

((30 - Det. Bal.) * Red Counts)/30 

This has the effect of differential corrections of up to + 3 X with 
steps of about .07 X. 

Clock determines period of pulses which decrement tho gate time count register 

0 62.5 ysec 

1 500 ysec 

2 8 msec 

3 32 msec 

4 128 msec r 

5-7 not used 
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X STEP SIZE 


Y STEP SIZE 


WORD 8 

CAL. WLD OFFSET 

TT 


X Step Size determines change of raster position for each control loop call 
when enobled. 


Y Step Size determines change of Y raster position for each control loop call 
when executed. 


Cal. WLD Offset determines quantity of WLD steps for calibration offset if 
calibration Is enabled. 
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data stream and maintains a record in the 32 word user memory of critical data elements, 
including the locations and intensities of the brightest and faintest elements of each raster, 
the most red-shifted and most blue-shifted elements of each raster, and the most intense 
wavelength of each spectral scan. After completion of a raster or spectral scan, command 
mode instructions may be used to test the critical data elements against pre-determined 
thresholds and alter the observing program accordingly, to adjust the instrument pointing 
so as to view one of the identified spatial elements, or to select a spectral line for subsequent 
observations. 

Suitable parameter blocks together with appropriate groups of command mode in- 
structions define the identified observing modes of the UVSP. The basic modes are the spec- 
troheliogram, the dopplergram, the spectrogram, the polargram. and the magnetogram. 
Command mode instructions are not required by these modes, except to initiate their ex- 
ecution by activating the appropriate parameter block. In these basic modes, either the 
wavelength drive or the raster mechanism is scanned, but not both. Combined operation 
of the two .mechanisms is provided in two modes, the profile matrix, in which an entire 
line profile is measured at each point in the raster, and the raster-over-line mode (RL) 
in which a complete raster is made at each of several wavelengths in a line profile. The 
basic observing modes are supplemented with command mode instructions to form another 
class of combined modes which includes a bright point finder, a faint point finder (useful 
for locating sunspots in the continuum), a flare finder (bright point finder plus threshold 
test), an upflow (blue shift) finder, a downflow (red shift) finder, and a spectrum line 
finder. These modes are useful for identifying targets and initiation times for subsequent 
observations. Within each mode, the sampling frequency and ranges of spatial and spatial 
scanning, the integration time, and the number of observations are all parameters that 
may be adjusted in order to optimize the observing program. 

Experiment modes may be linked in memory by short programs of command mode 
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instructions to form more complex observing sequences. Each such sequence occupies one 
of the 48 observing list sub-sectors. Since the sector boundaries are defined by a vector 
table, the sector sizes may be adjusted from day to day to accommodate changing observing 
requirements. Initiation of an observing sequence is under control of the spacecraft and 
requires only one command, designating which sector is to be used. This command is 
identified by the DMA interrupt processor, which passes the appropriate vector label to 
the monitor. As shown in Figure 5, the vector points to the starting address of the memory 
sector containing the command mode instructions for that sequence. The instruction sector 
will, in turn, contain one or more command mode instructions that call for execution of 
observations under control of a parameter block, and will contain a pointer to that block. 
Note that parameter blocks do not need to be in any particular order, that a given sector 
may call up two or more parameter blocks, and that a parameter block may be called from 
more than one sector. 

Once a parameter block has been identified, its contents are unpacked by the monitor 
and used to load the various loop counters and to set all required internal parameters and 
switches appropriate to -the observations to be made. The nesting order of the control 
subroutine loops is also set at this time, and then execution begins. When the observing 
sequence specified by the parameter block is complete, control returns to the monitor, 
which fetches and processes the next command mode instruction. The last command 
mode instruction in each sector contains a flag signalling the end of the entire experiment 
sequence, whereupon control passes back to the monitor and the system waits for a new 
DMA interrupt command from the spacecraft. 

An important aspect of the flight software package is that it makes the telemetry 
stream self-identifying. This is done in two steps. The first is to place the parameter 
block being executed into the software status buffer so that it is present in every major 
frame of telemetry. A unique serial number is assigned, to each sequence by the master 
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program, permitting the telemetry stream to be divided into logical experiment sequences 
on the ground. These logical sequences become separate files in the data base after they 
are processed by the ground based reformatting program. 

In the second step, the progress of execution of an experiment sequence is reported by 
having the computer inject messages into the spectrometer data stream at the conclusion 
of each pass through each of the control subroutine loops. Mode initiation is flagged by a 
unique message word, followed by the nine word parameter block defining the mode. This 
feature also permits the identification of experiments shorter than one major frame. 

The most significant bit of each pair of spectrometer data words is used as a flag 
to permit the ground software to discriminate between messages and intensity data. Fill 
data is distinguished from intensity information by a hardware feature that resets the pulse 
counters to unity rather than zero. Fill data enters the telemetry stream as a string of zeros, 
while a zero intensity count enters the stream as a one. In two’s complement arithmetic, 
messages will be negative numbers, fill will be zero, and valid intensity measurements will 
be non-negative; allowing the different data types to be rapidly and efficiently sorting 
during the reformatting operation. 

The combination of the injected messages in the data stream and the information in 
the software status buffer, permit the ground software to completely identify each bit of 
data, including the experiment sequence that produced it. the implied data format, the 
dimensions of all matrices in the format, the location of each datum within its matrix, and 
the file name that will be assigned to the sequence in the final data archive. Furthermore, 
this information can be completely developed from a segment of telemetry as short as one 
major frame (about 8 seconds in the SMM system), making it very easy to evaluate data 
received during short real time passes or from partial orbits. 

Additional discussion of the UYSP software system is given by R.ehse, el a/. (Journal 
of Spacecraft and Rockets, 1982, 19, 186). A complete listing of a recent version of the Jr 
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code is included in Appendix 3 of this report. 


Command Generation System 

The command generation system provides the software interface through which the 
scientist can design and execute an experiment in readily understandable terms. It frees one 
from the requirement to know the internal details of the instrument, a general knowledge of 
the basic instrument modes being sufficient for most purposes. The command generation 
system is composed of a two programs, an experiment generator (or compiler), and an 
experiment assembler. The experiment generator portion is known as Phase 1. This 
program allows the scientist or daily planner to design an experiment sequence and create 
readable text files that serve as input to the assembler, Phase 2, which prepares the actual 
memory load for the flight computer. Phase 1 was designed to provide the user with 
maximum convenience and flexibility. In the intermediate text file produced by Phasel,. 
only those parameters that are relevant to the type of experiment being created will appear 
in the readable parameter block text. Phase] also provides facilities for correcting inputs, 
and inspecting results before output. 

The experiment assembler, Phase 2 takes the various experiments requested for the 
day in the form of intermediate output files from Phase 1 and creates a new memory 
image for the instrument control computer. Input to Phase 2 may include several Phase 1 
files, making it easy to combine observing requirements of several different investigations 
into one computer load. The output from Phase 2 consists of three files and a listing. 
The first file contains the complete instrument computer memory image and is retained in 
the ground computer’s storage. The second file contains the data required to create the 
instrument computer load. The third file associates vectored entry points with experiment 
descriptor filenames and is used to annotate the daily timeline print. The listing includes 
octal values for all memory locations loaded by the current command generation, as well 
as resolved listings of all command mode statements and breakdowns of each parameter 
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block into its component bit fields with a verbal description. 


A complete discussion of the Command Generation System is given in the UVSP 
command generation handbook, which is included as Appendix 2 of this report. 

Data Acquisition Package 

The data acquisition package was developed by Dr. R. Shine of the GSFC stafT in 
collaboration w T ith Lockheed personnel. Although the preparation of this code was not 
a Lockheed responsibility, a brief overview of its operation is included here for the sake 
of completeness. The purpose of this code is to capture the incoming data stream as 
it arrives in the Experiment Operations Facility jEOFi at GSFC. The data flow from the 
SMM satellite into the EOF is illustrated schematically in Figure 8. In the early part of the 
mission, our primary contact with SMM was via the Satellite Tracking and Data Network 
(STDN) and the NASCOM communications system. Later in the mission when TDRSS 
became available, this system took over part of the STDN workload. In either case, data 
transmitted to GSFC over NASCOM arrived both in the EOF and at the Information 
Processing Division (IPD). At IPD, the data were recorded for later processing and error 
correction, and eventually resulted in the production of final data tapes. The data arriving 
at the EOF entered a PDP-ll/34 computer through an electronic interface called the EOF 
Interface Unit (EOFIU). The EOFIU was developed at Lockheed for the SMM mission, 
and served both the UVSP and the XRP instruments. Additional information on the 
EOFIU is contained in Appendix 4 of this report. The data from the EOFIU entered the 
PDP-11 memory via a Direct Memory Access (DMA) channel, where it was captured and 
processed by the Data Acquisition System. 

The operating philosophy of the Data Acquisition System was to allocate a very large 
block of storage in a disk memory system, map this block so that each word in the block 
corresponded to a particular word in the anticipated telemetry stream, and then to load 
each received datum into its predetermined storage location when it arrived. The disk 


21 




_cL 

STDN STATIONS 


I 


NASCOM 



Figure 8. DATA ACQUISITION 







memory system selected for the task was large enough to accomodate roughly one days 
data from the two instruments after extracting that portion of the entire telemetry stream 
that was pertinent. On a daily basis, the contents of the disk would be transferred to 
tape for storage in a quick-look archive, and the memory re-mapped for the next period 
of observing. Since the mapping for each period was predetermined, the order in which 
the telemetry from the different orbits arrived in the EOF was not critical. It was possible 
for the system to handle three data sources simultaneously by using multiple buffering to 
interleave operations on the data from different sources. This allowed us, for example, 
to simultaneously receive playback data from the spacecraft’s tape recorder and real time 
data from the telemetry transmitter. Data in the disk were, of course, on line and available 
to the computer for processing by the data reformatting task. 

As shown in Figure 9, the data entered the PDP-11 memory via a DEC DR-11B 
direct memory access interface. Data were initially captured in one of two ” burst buffers” 
of 257 word capacity each. Each burst held one minor frame of data together with some 
overhead and ancillary data. Since not all of each minor frame was relevant to either 
the UVSP or the XRP instrument, an initial sorting was done at this stage to discard all 
unwanted words. This was done by extracting the desired words information from each 
burst buffer using a table-lookup algorithm. Two burst buffers were used so that one could 
be processed while the other was being loaded. The retained fraction of each minor frame 
was placed in the proper place in one of six major frame buffers in memory. These buffers 
were also arranged in pairs, so that loading and processing were asynchronous. Two major 
frame buffer pairs were allocated to playback data, and a third pair to real time data, so 
that a total of three simultaneous data sources could be captured. Spacecraft clock data, 
contained in each minor frame, determined the location of each minor frame in the major 
frame buffer and later, the location of each major frame in the ’’Today’s Data” buffer in 
the disk memory. Major frames whose spacecraft clock data fell outside the boundries of 
the ’’Today’s Data” buffer were stored in an ' Oddball file” to be handled separately. Once 
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the data were resident in the disk, they could be accessed by the reformatting program for 
conversion to the science file format for inspection and analysis. Additional information 
on the Data acquisition program is given in Appendix 5. 

Data Reformatting Package 

The reformatter software converts nearly raw data from the instrument and SMM 
spacecraft into a data format compatible with the data analysis language SOL. The func- 
tions of the reformatter are to strip out the fill data, block the data stream into logical 
experiments, identify the experiment in progress and determine the appropriate file for- 
mat, intercept computer messages that identify the proper location of each datum in the 
format, load the intensity data into the format, create file header information, and write 
the results as a logical file on the disk. Ground reception of the data is sometimes noisy 
or occasionally drops out, so the reformatter allows for gaps in the data. The reformat- 
ter can also reconstruct the experiment parameters if the initial parameter information is 
missing. The initial version of the reformat code was an adaptation of the one developed 
at the University of Colorado for the OSO-8 instrument. It was prepared at Lockheed and 
delivered in a single detector version as discussed in the quarterly report for the period 1 
January to 31 March 1980. Work on the extended version of the reformatter which could 
handle multiple detector experiments and accomodate a variety of data anomalies was sus- 
pended at the request of GSFC so that additional effort could be devoted to refinements in 
the flight software package and the consequential modifications required in the command 
generation system. The final version of the reformatter code was prepared by Dr. R. A. 
Shine of GSFC. A discussion of the final data file formats is given in Appendix 6. 

Data Analysis Languages 

The format of the files in the data archive followed the convention established for the 
OSO-8 spectrometer in order to make the data immediately and easily accessible to the. 
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SOL data analysis language developed during the OSO-8 program. SOL. which stands for 
Spectrum Oriented Language, w'as written by D. M. Stern of the University of Colorado. 
It was a general purpose language that had several features that made it particularly 
convenient for use in the analysis of spectroscopic data. Procedures for opening, closing, 
reading, and writing data files were embedded within the language, and a graphics package 
operating a Tektronics 4010 terminal was included. The language handled vectors and 
arrays automatically in ordinary arithmetic operations so that loops over array indices did 
not have to be explicitly written. As part of this contract, Lockheed modified and delivered 
a version of SOL for use by the UVSP team. The modifications affected primarily the 
internal workings of the program and removed several unused sections that were relevant 
only to the original OSO-8 hardware configuration. The program remains functionally the 
same as the original, and is fully documented in the SOL language manual written at the 
University of Colorado. 

Two other languages were also available for UVSP data analysis in the EOF. The 
first of these was IDL (Interactive Data Language), which was written by D.M. Stern after 
leaving the University of Colorado to form Research Systems, Inc. IDL used many of 
the ideas embodied in SOL, but added many extensions. Automatic handling of arrays 
was retained, and generalized to handle arrays with more than two dimensions. IDL also 
featured a greatly enhanced string handling ability, and the graphics package was improved. 
There are. a number of detailed differences between the two languages, such as the range of 
array indices, which run from 1 to N in SOL but. from 0 to N-l in IDL. IDL did not have 
the built-in OSO-8 file reading procedures of SOL. although Stern provided a rudimentary 
read procedure for these files for our use. A disadvantage of Stern’s file read procedure was 
that it gave no access to logical record header information. Lockheed w’rote and delivered 
an improved procedure that retained the logical record header as part of this contract. We 
also provided a number of other utility procedures that were developed during the course 
of our scientific study of SMM data. These procedures are discussed in the appropriate 
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quarterly reports, and will not be treated here. 


The final language that was prepared for UVSP is called ANA, and was developed by 
Dr. R. M. Shine of GSFC. It w ; as designed to make the manipulation of UVSP image arrays 
particularly convenient, and features some powerful array manipulation commands. This 
language, though available to us, was not extensively used in the Lockheed data analysis 
program and will not be treated here. It is fully discussed in a manual prepared by Dr. 
Shine. 
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PART III 


THE LOCKHEED SCIENTIFIC PROGRAM 

Discovery and study of C IV Post Flare Loops 

The discovery of post flare loops seen in C IV was one of the early results to which 
LMSC has made substantial contributions. The so-called ’Logo Raster’ observation, carried 
out at the west limb on March 27. 1980, was planned by M. Bruner during an early period 
of residence at GSFC. The image, made during the rising part of the soft X-ray time 
history, shows a system of loops rising above the limb, clearly guided by the influence of 
the magnetic field. The observation was made in the dopplergram mode and shows that 
the northern legs of the loops are redshifted, while the southern ones were blueshifted. 

The loops appear to have originated in NOAA region 2339, which was on the west limb 
at the time of the observation. Magnetograms are available from the Kitt Peak National 
Observatory for March 23rd, 25th, and 28th. There were two groups of spots seen in the 
Mt Wilson drawings. The leader spots (showing black polarity on the magnetograms) were 
approximately 10 degrees west and 5 degrees north of the trailer spots. On the basis of this, 
it appears that the most likely orientation of the loop system we observed was with the 
northern footpoints further from the Earth than the southern ones. If this interpretation is 
correct, then the observed doppler shifts correspond to downfiow'ing material at transition 
zone temperatures in both legs of the loop system, rather than a syphon flow. The loops 
were transient in nature, as shown by a time series of smaller rasters made immediately 
after completion of the ’Logo Raster’ observation. The lifetimes of individual loops in the 
system (as defined by their visibility in C IV) was of the order of a few minutes. This set 
of observations has been the subject of a detailed study by a team including M. Bruner. 
G. Poletto, R. Kopp, and G. Noci. A paper on the results of the study has been accepted 
for publication in Solar Physics. 

Transition Zone Signature of Ephemeral Regions 
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An investigation arising from our participation in the FBS activity was a study of 
the growth of ephemeral regions and their signature in the transition zone lines. This 
study was coordinated by F. Tang, and concentrated on observations made on 11 Sept. 
1980. The UVSP observations were made in the dopplergram mode in C IV. Magnetic field 
observations were made at Kitt Peak national observatory, Big Bear Solar Observatory, and 
the Mount Wilson Observatory. Ephemeral regions were identified in the magnetograms, 
which were then compared to the UVSP dopplergrams to search for cospatial signatures 
in the transition zone. Of the 31 bipolar ephemeral regions that were observed in the 
magnetograms, three were in the field of view covered by the UVSP. Study of the UVSP 
images showed two regions, co-spatial with the ephemeral regions, that both brightened 
and expanded in area during the period of observations. The results of the study were 
presented at the COSPAR meeting in Canada in the summer of 1982. and are published 
in the proceedings. 

Density Enhancements of Flare Footpoints 

An early investigation of flare observations on the disk concerned the 1980 April 8 
flare. The observations of this flare were made in the UVSP density diagnostic line set, 
consisting of the Si IV, O IV, and S IV lines. Measurements were made in the RL mode, in 
which a series of rasters is made with the wavelength drive being advanced between rasters. 
Each raster represents a different position in the line profile, with the entire profile being 
covered in a series of five rasters. Data taken in this mode may be analyzed to determine 
the line intensities, widths, and positions (with respect to some global average) for each of 
the lines and for each pixel in the raster pattern. Electron densities may be estimated from 
the ratio of the Si IV and O IV lines. At the t ime of the impulsive phase, the 8 April flare 
showed a sudden brightening at the flare footpoint, accompanied by an increase in derived 
electron density. A preliminary presentation of the observations were made by Bruner et 
al. at the AAS Solar Division meeting at the University of Maryland. A more definitive 
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paper by Cheng, et al. appeared in the Astrophysical Journal. 


The April 8 Flare - a Critical Review of the Experimental Results 

The 1980 April 8 flare became the object of an extended investigation during the SMM 
workshop; one of five selected for study by the energetics team, of which M. Bruner was 
a member. Density diagnostics for this flare were available both from the UVSP results, 
and from concurrent P78-1 measurements, allowing us to derive the total thermal energy 
content of the flaring plasma and its evolution with time. This was the only data set 
available to us for which this was possible. By the time of the workshop, a considerable 
body of analysis of this event w'as in existence. M. Bruner prepared a critical review of the 
results, that was subsequently incorporated into the energetics chapter of the forthcoming 
monograph on the workshop. The complete text of the review was included in the quarterly 
report on this program for the period 1 April to 30 June 1984. 

Energy Flux Transportable by Sound Waves 

Another early investigation involved the study of N V dopplergram sequences in an 
attempt to estimate the energy flux transported across the transition zone by acoustic 
waves. This study was done in collaboration with Dr. G. Poletto of the Arcetri Astro- 
physical Observatory in Florence, Italy. The observations were made in the dopplergram 
mode in a series of 21 x 21 arc sec rasters. The results were generally consistent with 
earlier studies conducted by Bruner who had analyzed C IV and Si IV observations made 
with the UV spectrometer on OSO 8; finding that the inferred flux of energy that could 
be carried by the waves was inadequate by two or three orders of magnitude to explain 
the heating of the corona. A short contribution discussing the N V work has appeared 
in Memoria della Societa Astronomica Italiana. A more extended paper including a new 
theoretical treatment of wave propagation was prepared and submitted to Solar Physics. 
This paper met difficulties with a referee who raised several objections to the theoretical 
treatment, and is now awaiting revision. 
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Radiating Properties of Solar Plasmas 

A more recent investigation that was partially inspired by the SMM workshop ac- 
tivities was a study of the radiating properties of solar plasmas. In this study, which 
was initiated by and carried out in collaboration with Dr. R.W.P. McWhirter of the 
Rutherford- Appleton Laboratory, we compared the total power radiated by an atmosphere 
with the power in a single spectral line. The calculations were based on a carefully selected 
set of atomic data and were carried out for a series of empirical emission measure distri- 
butions taken from the literature. The object of the study was to discover to what extent 
the intensity of a single line could be used as a diagnostic to estimate the total radiated 
power from an unknown atmosphere. Such an implied relationship is not unreasonable, 
since the general shapes of emission measure distributions tend to be very similar. 

In a preliminary test, McWhirter found that for the several distributions tested, the 
total radiated power was directly proportional to the intensity of the C IV resonance 
lines at 1548 and 1550 A, with an uncertainty of about 20 percent. We extended this 
study to incorporate a larger set spectral lines that are commonly observed by SMM, and 
added several more emission measure distributions to the empirical data base. The final 
data base included sample distributions for both quiet and active regions as well as for 
flares. The results of the extended study confirmed the existence of an apparent systematic 
relationship between the two quantities, but with a larger uncertainty. We confirmed the 
approximately linear relationship between total radiated power and the intensity of the C 
IV line, but found that a power law with an exponent of 1.1 (e.g. a linear relationship 
in the logarithms of the quantities) gave a slightly better fit to the data. The power law 
relation held for the C IV, N V, and O V lines observed by UVSP, though with different 
exponents. For the O VII and Ne IX lines observable bv the XRP experiment, we found 
that the data were well represented by a quadratic relationship between the logarithms of 
the two quantities. These relationships are illustrated in Figure 10. 
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Another aspect of the radiated power study was the computation of effective values 
of the so-called G(T) functions for each spectral line considered. To illustrate the concept, 
we consider the conventional expression for the intensity of a spectral line in the effectively 
thin case. The intensity is given by 
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where Ne is the electron density, n(H)/Ne represents the ionization balance of hydrogen, 
n(z)/n(H) is the abundance of the element z with respect to hydrogen, n(g,z) is the fraction 
of the element z that is in ionization state g, T is the absolute temperature, and h is a 
unit of distance along the line of sight. This expression may be written as 
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w'here the abundance and the temperature dependent terms depending on the physics of 
the particular ion have been combined in the function G(T). We now' define an average, 
or effective value of G through the expression: 


j = 1 n ( z ) 

Ai r n(H ) 



where Tm is the median temperature below' which exactly half of the intensity of the line 
arises. Note that this integral is carried out over a finite range in T, amounting to a factor 
of two between the lower limit and the upper limit, and with Tm being the geometric 
mean of the two limiting values. This is the convention used, for example, by Jordan 
(ref.). Combining the first and third expressions, w'e may compute G(Tm) as 
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We see that G(Tm) is a special kind of weighted average, where the emission measure is 
used as the weighting function. It is not the usual weighted average, because the normal- 
ization and averaging integrals are carried out over different ranges in T. 

We computed values of G(Tm) for each spectrum line and for each of the emission 
measure models considered for the radiated power study. For the transition zone lines, 
we found the G(Tm) and Tm values to vary only slightly from one model to the next, 
suggesting that the mean values could be used to compute a very good first approximation 
to the emission measure distribution, given a set of line intensity measurements. In the 
case of the O VII and Ne IX lines, the values varied considerably between flaring and non- 
flaring models, being influenced by the slope of the high temperature part of the emission 
measure distribution. A summary of these results is given in Table 1. The entries marked 
in the tables with asterisks represent cases where the high temperature end of the emission 
measure model did not completely cover the range of formation of the ion in question. 

The utility of the G(Tm) averages is that they permit us to quickly estimate values 
for the emission measure at temperatures in the vicinity of Tm, with the assurance that 
the derived values will represent something better than a zeroth order approximation. 
A possible extension of this utility will be discussed in the next section. An oral paper 
covering some the results of the radiated power study was presented at the 1985 summer 
meeting sponsored by NSO at the Sacramento Peak Observatory. A definitive paper on 
the results is in preparation. 

Absolute Wavelengths of Solar Lines 

Another research topic that was recently addressed is the question of the absolute 
wavelengths of solar lines that have been observed with the UVSP. This observing pro- 
gram had as its objective, the measurement of the wavelengths of several chromospheric 
lines with respect to the geocoronal absorption line in O I, w'hich is taken as a reference 
wavelength. The significance of the program is as follows: In the study of velocity fields 
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G(T) - Model Weighted Average 
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on the sun, all past experiments have suffered from the fact that none of the available in- 
struments have been equipped with on-board wavelength reference sources. Since velocity 
measurements are based on the measurement of doppler shifts, this has meant that there 
was effectively no rest frame to which velocity measurements could be referred. In order to 
study problems such as mass balance in the transition zone and corona, investigators have 
had to assume that some observable quantity such as the wavelength position averaged 
over a large field represented a reproducible working standard of wavelength, and that 
this wavelength represented material that was at rest with respect to the center of the 
sun. Although these assumptions are plausable. they lacked experimental confirmation. A 
systematic red or blueshift of the reference wavelengths would have been undetectable. 

By measuring a set of chromospheric wavelengths with respect to a non-solar reference, 
the question of possible systematic motions or wavelength shifts originating in the solar 
atmosphere is avoided. The geocoronal absorption lines in the O I triplet near 1302 A 
provide such a reference. The O I line profile is very similar to that of the much broader 
H-Lyman alpha line, and shows two quite distinct regions of line reversal in the vicinity of 
the core. The broad, shallow core is caused by non-LTE radiative transfer effects in the 
solar chromosphere, which is optically thick at these wavelengths. The narrow central part 
of the core, however, is an absorption line formed in the Earth's upper atmosphere, which 
is at a much lower temperature. The geocorona is substantially at rest with respect to 
the center of mass of the Earth, affected at most by the effects of diffusion related to the 
gradual escape of atoms in the high energy tail of the outer layers of the oxygen geocorona. 
The physics of the escape process in the geocorona is well understood so that this effect 
can be evaluated with confidence. Similarly, the radial velocity of the Earth with respect 
to the sun is a function of orbital mechanics, and can be accurately computed. Thus, the 
O I line can serve very well as a standard of absolute wavelength for solar UY observat ions. 

In applying the method, the UVSP instrument was used to carefully measure the 
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positions of several UV emission lines formed in the solar chromosphere with respect to 
absorption cores in the resonance emission triplet of atomic oxygen. The selected lines 
were close in wavelength to the 0 I triplet in order to minimize the required motion of the 
wavelength drive and consequently, the uncertainty introduced by any non-linearities in 
the drive performance. Steps in the analysis included the determination of the observed 
line positions in step numbers on the wavelength drive, conversion these position numbers 
to apparent wavelengths, correction of the apparent wavelengths for systematic effects 
(principally the orbital motion of the spacecraft) and finally, computing the corrected 
wavelengths of the solar lines from the observed offsets from the geocoronal O 1 absorption 
lines. 

Computation of the line-of-sight component of the spacecraft velocity vector was based 
on a complete solution of the spherical triangle defined bv the position vectors from the 
center of the Earth to the sun, the spacecraft velocity vector, and the geocentric pole. 
Input data to the computation were the time of the observation: the times of spacecraft 
sunset, sunrise, and ascending node passage taken from the orbit predictions on the SMM 
planning charts; and the right ascension and declination of the Sun from the American 
Ephemeris and Nautical Almanac. 

The analysis showed very good internal consistency among the several measured po- 
sitions of the O I lines at 1302.169 and 1304.858, based on the pre-launch values for the 
polynomial coefficients in the wavelength drive position prediction formula. The results 
of the wavelength measurements of the solar lines were very surprising. Both the 1300.91 
line of S I and the 1318.998 line attributed to N 1 were found to be blue shifted with 
respect to their rest positions. The observed blueshifts corresponded to upfiow velocities 
of about 3 km/sec, and the shift exceeded 3>. sigma. In our first, observing run. we had 
also observed the 1318.998 line which was classified as arising from N I in the NRL atlas of 
L. Cohen (NASA publication 1069, 1981). This line showed a considerable departure from 
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its expected position based on the pre-launch calibration of the UVSP wavelength drive. 
If this departure is attributed to doppler shift due to motion in the sun’s atmosphere, an 
upward velocity of about 8 km/sec is implied. In the second run, the C 1 line at 131 1. 404 
was observed in lieu of the 1318.998 line since it is closer to the nearest reference line. To 
our surprise, we found this line to the red of its rest position by about 8 km/sec. The line 
profiles are well developed in all cases, and display good signal to noise ratios, so that the 
displacements cannot be attributed to statistical errors. There is a pos- sibility that the 
identification of the 1318.998 is in error, since the 1319.67 line which arises from the same 
multiplet is not observed in any of the UVSP spectra. The 1319.67 line is expected to be 
nearly twice as bright as the 1318.998 line (Kelly and Palumbo - NRL report 7599). 

We have considered a number of possibilities apart from a systematic velocity in the 
chromosphere that could be advanced to explain the observations. The effect of solar 
rotation, w'hich can be as high as 1.9 km/sec. is not a problem for these observations, 
since they were carried out at sun center. The radial velocity of the Earth w'as computed 
from ephemeris data for the day of the measurement to be about 0.19 km/sec, which is 
a decade too low to explain the observations. The effect of the Earth’s motion about the 
Earth-Moon barycenter is even smaller; about 12 m/sec. There is a possibility that one 
or both of the lines have been mis-identified. The line at 1300.91 angstroms is not listed 
in the Kelly and Palumbo table, but has been classified by Tondello (1972, Ap. J. 172. 
771) as arising from S I. It was identified in the solar spectrum by Chipm an and Bruner 
(1975, Ap. J. 200, 765), who also reported most of the other nearby S 1 transitions. The 
other S I transitions are also seen in the UVSP spectrum. Thus this identifi- cation seems 
fairly secure. The 1318.917 line is classified in the NRL ATLAS (L. Cohen, 1981, NASA 
Publication 1089) as arising from N I. Kelly and Palumbo list a N I doublet whose fainter 
component lies close to our observed wavelength. The other component, however, has not 
been observed either in the Chipman and Bruner spectrum or in the UVSP spectrum. 
Thus this identification is suspicious and may be wrong. 
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. These results were presented during the 1985 annual meeting of the Solar Physics Di- 
vision of the American Astronomical Society. An abstract of the paper has been published 
in Bull. Am. Astron. Soc. Vol 17, 630, (1985). 

Comparison of Photospheric Electric Currents and Ultraviolet and X-ray Emis- 
sion in a Solar Active Region 

Recently it. has become possible to infer the presence of electric currents in the solar 
photosphere using vector magnetograph measurements. An important question that can 
now be addressed is whether heating of the upper solar atmosphere takes place via electric 
current dissipation. This can be studied empirically by comparing regions of inferred Jz 
(vertical component of the photospheric electric current density) with areas of enhanced 
emission in the chromospheric, transition region and coronal structure. Recently deLoach 
et al. (1984) used MSFC vector magnetograms and UVSP raster maps in Lyman alpha 
and N V to investigate spatial correlations of Jz and enhanced emission within an active 
region. A marginal correlation was found. 

As summarized in a paper to appear in the Astrophysical Journal (1 January 1986; 
“A Comparison of Photospheric Electric Current and Ultraviolet and X-ray Emission in 
a Solar Active Region” by Haisch, Bruner, Hagyard and Bonnet) we have completed a 
more comprehensive intercomparisons of vector magnetograph, UVSP. XRP and high- 
resolution UV rocket images and filtergrams to search for evidence of heating by current 
dissipation. Specifically, we used UVSP spectroheiiograms in C IV, Si IV and O IV. 
Empirical correlations between Jz and bright emission regions in Lyman-alpha and in the 
1600 A UV continuum (rocket data) were found. There appeared to be a lesser degree of 
correlation between Jz and the UVSP transition region emission. However none of these 
correlations were consistent with expected scaling relations between simple ohmic heating 
and radiative losses. The present status of this approach for empirically investigating the 
nature of the heating mechanism of the structures in the upper solar atmosphere is that 
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there are suggestive correlations involving electric currents, but further correlative studies 
are necessary. 

Directions for Future Investigations 

In this section, we discuss some research topics that have been identified as logical 
extensions to the investigations performed under the present contract. Some of these topics 
are logical extensions of work that we have already done or that is in progress. Others 
have been identified in the past, but postponed in favor of the work discussed above, while 
still others are new. We anticipate that additional topics will present themselves as the 
study of the existing data base continues. 

Flare Filling Factors 

This project has been treated in several of the progress reports on this contract. It 
is an outgrowth of studies done for the SMM Flare Workshop, specifically with respect to 
the April 8 flare. A striking result of the compilation of observations of this flare was the 
comparison of estimates of the flaring volume as functions of time using different methods. 
In one method, based on atomic physics computations, line ratios are used to estimate 
the electron density. These densities are combined whth values of the volume emission 
measure determined from line intensities to determine the effective emitting volume. A 
second method uses an analysis of the HXRBS data combined with radio observations to 
determine an effective area for the optically thick radio emitting region, which, in turn is 
used to estimate the volume. A third method rests on the apparent area observed with 
one of the imaging instruments such as UVSP. XRP, HXIS, or P78-1. This area is again 
used to infer a volume. 

In the case of the April 8 flare, we found agreement between the two volume estimates 
based on area measurements, but a large discrepancy between these values and the effective 
volume estimated from the density / emission measure analysis. This result is in accordance 
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with previous findings by others, who attributed the differences to the incomplete filling of 
the emitting volume with plasma. The new result from the April 8 study was that as the 
flare developed, the volumes based on atomic physics estimates approached those estimated 
from areas until they were in substantial agreement at the end of the gradual phase. The 
result is illustrated in Fig. 11, which was prepared for Chapter 5 of the SMM Flare 
Workshop monograph. It is seen that the volume estimates based on areas rise during 
the impulsive phase of the flare, and then gradually decrease with time. The volumes 
derived from the spectroscopic diagnostics, however, show a large (though uncertain) initial 
decrease, followed by a gradual rise. This seems to imply a time evolution of the filling 
factor, which would be an important result, if confirmed. This idea could be followed by 
examining both the SMM and the P78-1 data bases for other flares where this type of 
comparison can be made. Our preliminary checks have revealed a number of candidate 
events that could be examined as an extension to the present study. 

Radiated Power Study 

The basis of this study was discussed at some length earlier in this report. There 
are two directions in which the study could be extended. The first of these is to broaden 
the empirical data base by identifying and adding more examples of emission measure 
distributions derived from observations, and to incorporate more of the ions for which we 
have good atomic data. The emphasis in this extension should be to add more examples 
of flaring plasmas to the set of emission measure distributions, and to include more of the 
lines that are typically used by the SMM instruments, particularly UVSP and XRP. 

The second extension emphasizes the effective values for the G(T) functions, and their 
utility in computing emission measure distributions. As discussed previously, the quantity 
G(Tm) may be used to derive a good estimate of the emission measure at temperatures in 
the vicinity of Tm. If we were to do this for several lines spanning the desired temperature 
range, the result would be a first order emission measure distribution. The method is 
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similar to the original method of Pottasch (Space Science Rev. 3. 816, 1964; Bull Astron. 
Inst. Neth., 19, 113, 1967), but with atomic data that are more realistically weighted. If 
these derived emission measure values are now connected by some reasonable technique 
such as cubic spline interpolation, we may use the methods developed in this study to 
recompute the G(Tm) functions for this particular emission measure distribution. The 
new G(Tm) functions would, in turn, be used to compute a second approximation to the 
emission measure distribution, and the iterative process continued until convergence is 
obtained. Since, as we have already show'n. the G(Tm) values are insensitive to the shape 
of the emission measure distribution, we may expect convergence to come very quickly, 
probably within one or two iterations. 

Preflare Oscillation Study 

This project is based on a suggestion by E. Antonucci that it might be possible to 
observe oscillatory behavior in the transition zone lines during the last few minutes before 
onset of the impulsive phase of a flare. We have found some observations that are suggestive 
of oscillations in the TRANSVEL and TRANSMAP observations that were made in the 
N V line during the early part of the mission in 1980. These data sets should be studied 
more carefully, subjecting them to power spectrum analysis to discover the extent to which 
they display quasi-periodic behavior. There appears to be an adequate data base in the 
existing UVSP archives, so that additional observations will probably not be needed. 

Chromospheric Depression Study 

The process of chromospheric evaporation or ablation is, by now, a widely accepted 
idea. Observations made with the XRP instrument, particularly the bent crystal spec- 
trometer, have revealed the blue shifted material that would be expected on the basis of 
the model. The question to be addressed here is the fate of the region from which the ma- 
terial is ablated during and immediately after the impulsive phase. Since chromospheric 
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materia] is removed from a relatively restricted area, we may logically expect to find a de- 
pression, or region of low density, in the vicinity of the footpoints of the flare. Presumably, 
the higher temperature in this region would provide the pressure necessary to prevent the 
depression from being filled by material flowing in laterally from the surroundings for as 
long as the strong chromospheric heating persists. Such a depression is expected whether 
the heating mechanism is thermal conduction, as suggested by Hyder during the SMM 
workshops, or by non thermal electrons, as discussed by Woodgate during the 1985 NSO 
summer workshop at the Sacramento Peak Observatory. 

It may be possible to find evidence for chromospheric depressions by examining the 
maximum transition zone densities seen at flare footpoints as a function of the position of 
the flare on the disk. What we are seeking is a simple geometric effect. If the footpoint 
is near disk center, then we expect to see all the way to the bottom of the depression 
(assuming that the hot ejecta are transparent to the transition zone radiation), while for 
a footpoint near the limb, the bottom may be obscured by the intervening wall. Since the 
density is expected to be highest at the bottom of a depression, we may expect to find 
that flares observed near the disk center show systematically higher maximum densities 
than those observed near the limb. This idea could be tested by surveying the UVSP data 
base for flares and sub flares observed with the 0 IV - Si IV density diagnostic line pair. 
A correlation plot of maximum observed density as a function of distance from disk center 
should reveal the effect if it is present, provided that a sufficiently large set of samples can 
be found. 

Prominence and Filament Studies 

The object of this investigation would be to study the formation of and evolution 
filaments by examining them in as many temperature regions as possible. The question 
that, would be addressed is their mechanism of formation. Some schools of thought contend 
that prominences are formed by cooling and condensation (recombination) of hot coronal 
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material, while others postulate a direct formation from cooler material coming from the 
chromosphere. Observations of the higher temperature regions should allow this question 
to be resolved in a straightforward way. Much of the effort would be focussed on ground 
based observations. A systematic survey of the existing dataset could be made to search for 
examples of UVSP observations that are cospatial with filaments that have been observed 
from the ground. Of particular interest is the period of time from May, 1984 through 
September, 1984 when the wavelength drive was inoperative. Subsequent work by Bruner 
and later by Henze showed that the spectrometer was tuned to the C II lines during this 
period. C II is interesting for the study of filaments and prominences, as it is formed 
at a temperature of about 30000 deg K; only slightly higher than the 10000 deg typical 
of prominences. It will also be interesting to conduct a similar search for signatures of 
prominences in the C IV lines. 
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INDEX OF QUARTERLY REPORTS 
Prepared Under Contract NAS5-24119 

The purpose of this index is to identify the topics discussed in the 
various quarterly reports prepared during the course of this contract It is 
intended to assist the interested reader in locating additional information 
pertinent to topics discussed in the final report It also serves as a 
convenient short-form history of the work performed under the contract 

1977 Quarter 1 

o Completion of first phase of work under contract NAS5-23691 
o Installation and modification of S/C simulator software in 
PDP-11/34 

o Hardware interface definition for PDP-11 to SCI interface drawer 
1977 Quarter 2 

o Integration of S/C simulator interface drawer and PDP-11 
o Wavelength drive performance test completed 
o JR Cross-assembler written and tested 
o Instrument test procedures for use in JR defined 

1977 Quarter 3 

o JR software architecture defined, including new command mode 
o Command generator compiler input specifications defined 
o Science meetings at Culham Lab and UCL attended 
o Design review of Electronic system at SCI systems 
o OSO-8 hardware failures found 

1977 Quarter 4 

o Mission flight software work (Revision A) completed 

o Parameter blocks defined 

o Field support of test software 

o Phase 2 command generator coding 

o Investigator's Working Group (IWG) meeting in Sunnyvale 

o JOS Working Group formed 

o Data acquisition codes defined 

o R A. Shine detailed to LMSC from GSFC 

o PDP-11/34 sysgen (V 3) 

o PDP-11/34 Tape drive specifications defined 

o EOF computer load analysis 

1978 Quarter 1 

o Huntsville test support 

o Electronics breadboard / SC simulator software development tool 
defined 

o Mission software installed and tested 
o Phase 2 command generator completed 

o Phase 1 command generator conceptual design complete, and coding 
started 

o Preliminary version of data acquisition code completed by R A. 
Shine 

o UVSP telescope alignment at G.E. 


1978 Quarter 2 


o JR flight software package installed and tested at GlE. 
o Phase 1 command generator coding 
o IWG meeting in Huntsville, Ala. 

1978 Quarter 3 

o Analysis of "missed interrupt" problem, development of redundant 
timer operation as work-around 
o Completion of Phase 1 Parameter Block Generator code 
o IWG meeting at Culham Laboratory 
o SSO.007 Coronal Bright Point program defined 

1978 Quarter 4 

o Continued JR software checkout at GSFC 
o Instrument calibration at GSFC 

o Phase 1 command mode section complete and integrated with Phase 1 
parameter block generator 
o IWG meeting at GSFC 
o Development of coronal heating SSO 

1979 Quarter 1 

o Enhanced baseline JR software package completed and tested on 
software development tool 
o Diagnostic work on JR hardware 
o Performance Evaluation of completed instrument 
o Definition and execution of modified Hartmann test for setting 
o Ebert mirror focus 
o Telescope focus and resolution tests 

o IWG meeting in Boulder, Colo. (High Altitude Observatory) 

1979 Quarter 2 

o Reformatter defined and work started 

o Flight software modified to add three level priority interrupt 
o Baseline revisions to SOL defined 
o JWG, IWG meeting in Durham, New Hampshire 

1979 Quarter 3 

o Reformatter development continued 

o New flight software package delivered with two level flare priority 
interrupt response 

o Flare test series package delivered 
o Baseline SOL conversion completed and tested 
o Command generation Phase 1, Phase 2 package completed 
o User’s manual for command generation in preparation 
o JWG meeting at GSFC 
o FBS meeting in Montreal, Ca. 

1979 Quarter 4 

o Updated flight software package delivered and installed 


1980 


1980 


1980 


1981 


o Further flight software package enhancements defined, coded, and 
tested on software test tool 

o Reformatter work deferred in favor of work on JR software at the 
direction of GSFC program scientist 

o Command generator package modified to reflect JR software changes 
o Final performance evaluation of completed UVSP at GSFC 
o JWG meeting at GSFC 
o IWG meeting at Huntsville, ALa. 

Quarter 1 

o Launch Support 
o Post launch checkout of UVSP 

o Delivery of 1 detector version of reformat program 
o Jr. flight software package in-orbit checkout 

o Command generator updated to reflect new performance information 
o Baseline version of SOL delivered and installed 
o Review of in-orbit testing of spectrometer 

o Measures implemented for preventing photometric sensitivity loss 
are detailed in this report 

o Sensitivity decrease diagnosed and control procedures defined. 

Loss mechanism is discussed 

o Definition of "workhorse mode” experiment concept and initial 
examples 

o Preparation of utility codes for quick-look analysis; delivery of 
documented codes 

o Observation of 27 March post-flare loops ("Logo Raster") 

Quarter 2,3 

o Post launch mission operations support 
o Major upgrade of flight software package 
o Evaluation of flare data in C IV, N V dopplergram mode 
o Presentation of 8 April flare density measurement at AAS meeting 
o Development of conversion program to allow image display on LMSC 
HP-1000 / Ramtek system 
o Big Bear Solar Observatory meeting 

Quarter 4 

o In-residence work in EOF by Bruner, Schoolman 
o Initiation of N V sound wave study with Poletto at Arcetri Obs. 
o Paper on SMM control system presented to AIAA 
o Development and installation of Command Generator enhancements 
o Preparation and execution of spicule observing program 
o Contribution to HXIS study of Hard X-ray imaging of post flare 
radio burst 

Quarter 1 

o Analysis of UVSP data supporting NASA sounding rocket 27.036 
o Continuation of N V sound wave study 
o Flare Buildup Study (FBS) meeting at GSFC 
o Bright point study initiated under FBS; one region identified 


1981 Quarter 2 


o Bright point study continues - codes developed to mask images and 
develop light curves 

o Development of blinking color table for identification of image 
elements 

o Continued analysis of rocket support data, velocity computation, 
normalization for absolute intensities 
o N V preflare study begun with E. Antonucci 

o Continuation of N V sound flux project - modification of analysis 
codes to correct problems 

1981 Quarter 3 

o Rocket support data analysis continued by L.W. Acton 
o G. Poletto visit to Palo Alto, discussion of theoretical results 
o Beginning of Noci, Antiochos loop model project 

1981 Quarter 4 

o Calibration of C IV dopplergrams for Poletto / Noci loop study 
o Analysis of March 27 post flare loop system 
o Modifications to N V sound flux codes completed 
o Preparation for Jan, 1982 AAS paper 
o Development of velocity transfer function analysis 

1982 Quarter 1 

o Presentation of N V work at AAS meeting in Boulder, Co 
o Bright Point study continues with determination of background 
levels 

o Bright Point project with M. Kundu defined, 
o Test of Hyder Vortex model of flares 
o Development of 48 level pseudo-grey scale for Ramtek 

1982 Quarter 2 

o Comprehensive review of loop models completed by B. Haisch 
o Analysis of 27 March loop observation continues. Ft Kopp joins 
analysis team 

o A. Walker and students begin a new loop study 
o Fe XXI limb scan survey initiated 

1982 Quarter 3 

o Walker et al. study continues 
o Kopp and Poletto visit re: 27 March loop analysis 
o Loop lifetimes determined to be 15 - 30 minutes in C IV 
o Antiochos suggests formation is due to cutoff of heating to a 
pre-existing loop so that C IV loop is result of a cooling process 

1982 Quarter 4 

o Problem discovered with velocity computation algorithm in N V 
program. Results are re-computed 
o N V paper in final preparation 

o Walker et al. work continues, finding a number of Fe XXI 
loops 

o Paper on "Transport and containment of plasma, particles and energy 



within flares" presented in Japan and accepted for publication in 
workshop proceedings 


1983 Quarter 1 

o Wavelength drive reference method developed for analysis of 27 
March flare loop system. Time development of velocity fields 
determined 

o Shell model of post flare loop system developed and applied to 13 
July, 1982 flare 

o Paper on 13 July flare presented to AAS Solar Phys. Div. meeting in 
Pasadena, Ca 

o SMM workshop begins, M. Bruner joins energetics group 

1983 Quarter 2 

o Sept, 1980 active region study continues 

o Initial study of limb flares showing ejecta begins at Culham Lab 
o Initiation of radiated power study (RADPWR) with RWP McWhirter 
o SMM workshop at GSFC. M. Bruner accepts responsibility to prepare 
complete presentation of April 8 flare 
o UVSP data for Team E (Energetics) analyzed and presented to team 
members 

o Codes to analyze limb flares prepared and checked out on Rutherford 
"Starlink" computer (IDL procedures) 
o SOL version of radiated power code written and checked 

1983 Quarter 3 

o RADPWR project continued in Palo Alto - effective collision rate 
concept developed for O V line at 1371.2 Angstroms, also applied to 
Fe XXI line 

o Effective G(T) values computed for major UVSP lines and used to 
derive emission measure conversion constants for UVSP observations 
o April 8 study continues with collection of available observations 
and published results 

1983 Quarter 4 

o N V sound wave study continues - Paper returned by critical referee 
o N V flux computation procedures reviewed; small discrepancies 
corrected, and results re-computed - no substantial change in 
results 

o 23 Sept Active Region Study continues. Current density maps 
received from MSFC to be compared with UVSP data, rocket 
filtergraph data 

1984 Quarter 1 

o April 8 critical review of all observations completed and presented 
to Team E at SMM workshop 

o Critical discussion of UVSP data from Team E flares completed and 
submitted to Team E leader. Complete text is included in this 
quarterly report 

o Magnetic field plotting capability developed to display MSFC 
magnetic field models on Lockheed HP-1000 system 



1984 Quarter 2 


o Critical discussion of April 8 data set completed and submitted to 
Team E leader. Full text is included in this quarterly report 

1984 Quarter 3 

o UVSP wavelength drive problem diagnosed and corrected - a 
discussion of the hardware, its problem, and the analysis of the 
problem is given in this quarterly report 
o Post-recovery data analyzed to show that the UVSP had been 
observing the C II lines at 1334.5 and 1335.7 Angstroms during the 
time when the wavelength drive was inoperative 
o Radiated power study continues with expansion of the atomic physics 
data base 

o 23 Sept active region study continues, concentrating on comparison 
of inferred electric current and images in H-Lyman alpha, 1600 A 
continuum, and C IV. Results do not support a current heating 
hypothesis 

1984 Quarter 4 

o No work performed in October due to a gap in funding 
o WZERO program to determine absolute wavelength reference for UVSP 
defined by M. Bruner and run at GSFC 
o Bruner and Crannel initiate project resulting from 8 April study. 

1985 Quarter 1 

o 23 Sept active region study completed. Paper submitted to Ap J for 
publication. Preprint of paper contained in this quarterly report 
o Data analysis methods developed for WZERO data. Wavelength drive 
system shown to be remarkably accurate 
o Bruner / Crannel study continues with identification of Feb 26 
event for which both SMM and P78-1 data are available 
o IDL utility procedures developed for analysis of WZERO experiment 
will be widely applicable to UVSP data analysis. Procedures and 
documentation submitted to NASA in this quarterly report 

1985 Quarter 2 

o Second observing run of WZERO experiment is analyzed 
o WZERO paper presented to A AS meeting in Tucson, Ariz. 
o Major wavelength drive anomaly analyzed - test procedures defined 
and tested. WLD problem shown to be apparently due to lubrication 
failure between WLD screw and follower nut Recovery procedures 
defined 

o Corrected IDL procedures for computing line of sight velocity of 
S/C from planning sheets completed and included in this quarterly 
report 

o RADPWR work continues - FORTRAN version of the code is prepared 

1985 Quarter 3 

o Results of RADPWR study presented to 1985 National Solar 
Observatory conference at the Sacramento Peak Observatory. 
Methodology and results are given in this quarterly report 



o Wavelength drive tests show that the WLD motor is now free to run, 
but the WLD does not move. Failure determined to be most probably 
in the flexible coupling between the gear box and the WLD screw. 
In-orbit recovery from this failure is not possible, and the 
instrument will beed to be returned to the laboratory for repair. 

1985 Quarter 4 

o SMM observing program defined to support launch of NASA sounding 
rocket 27.090. Successful flight develops new data base for active 
region studies 

o Work initiated on contract final report 
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NOTICE 


By popular demand) the formats for specifying 
the motions of the four hardware mechanisms of 
UVSP which are controlled within an experiment 
(X and Y rasters/ polarimeter. wavelength drive) 
have been changed. Instead of indicating the 
number of STEPS which the mechanism will take* 
the user now specifies the number of POSITIONS 
it will occupy. Thus* a 3x5 raster is now cre- 
ated with the numbers 3 and 5 instead of 2 and 
4* as was the case with the version of Phase-1 
delivered in October, 1979. Note that previous- 
ly created Experiment Definition Files will not 
be accepted by the new version of Phase-2. 



CHAPTER 1 


INTRODUCTION 


Command Generation is the process by which the daily observ- 
ing program is loaded into the UVSP's onboard computer, named JR. 
Command Generation has been divided into two parts. called 
Phase-1 and Phase-2. In Phase-1, the user is led through the 
procedures required to create Experiment Definition files. These 
are text files which contain all of the instructions which permit 
the UVSP to carry out scientific observing programs. In Phase-2, 
a number of Experiment Definition files are compiled into a JR 
memory load to be uplinked to the spacecraft. This memory load 
will control the operations of the UVSP instrument during a day's 
observations. 

Each of these daily memory loads is called an "observing 
list". The control area in JR's memory is divided logically into 
three areas, called A-list. B-list. and C-list. The basic opera- 
tions philosophy is that A-list and B-list will be used on alter- 
nate days, so that each of them can be re— loaded on the day dui — 
ing which the other is active. C-list will contain experiments 
which will remain resident for an extended period of time, either 
because they are used repeatedly or. because they are held in res- 
erve for special occasions like super flares. Because of a quirk 
in the software, a new C-list JR load can only be uplinked on a 
day when A-list is active. 

Although Phase-1 and Phase-2 are both parts of Command Gen- 
eration. they are obviously very different processes. Phase-1 
gives the user the opportunity to use a considerable amount of 
imagination and flexibility in creating experiments. Phase-2, on 
the other hand, creates an actual memory load for JR, so it must 
do extensive error checking and will reject any input which is 
not perfect. Phase-1 and Phase-2 of Command Generation will typ- 
ically be done at different times, and perhaps by different peo- 
ple. Any knowledgeable user can use Phase-1 to create Experiment 
Definition files at any time he/she finds convenient. These 
files are simply stored on a disk for inclusion in some future JR 
load. Phase-2, on the other hand, will generally be once per day 
in the late afternoon, following the daily planning meeting, to 
prepare the JR load which is to uplinked before the beginning of 
the next observing day. 
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Chapter 2 of this manual describes in detail the uses of the 
two types of text which go into the Experiment Definition files# 
namely Command Mode text and Experiment -Parameter Blocks. 
Chapter 3 describes how the Phase-1 processor is used to create 
the Experiment Definition files. Chapter 4 describes how the 
Phase-2 processor is used to compile a number of Experiment De- 
finition files into a single JR load. 



CHAPTER 2 


EXPERIMENT DEFINITION FILES 


An Experiment Definition File is the output of Phase-1 Com- 
mand Generation and the input to Phase-2. The file is a fully 
readable ASCII file which can be printed on a terminal or printer 
and can be modified with any of the RSX editors. 

Each Experiment Definition File has two sections. The first 
section contains the Command Mode text, while the second conta-ins 
the Experiment Parameter Blocks. Command Mode is a simple 
language with which the flow of scientific operations is con- 
trolled. Experiment Parameter Blocks contain the parameters 
which control the actual data-taking operations of the UVSP. 
These two types of text are described in detail in the following 
sections. -- 

There are two basic rules governing any Experiment Defini- 
tion File which is input into the Phase-2 processor. The first 
is that all Command Mode text must precede all Experiment Defini- 
tion Blocks; the sections are separated by a line containing the 
symbol PBLK". The second is that the corresponding Experiment 
Parameter Blocks must exist within the file for all experiments 
referenced by the EXECUTE command, even if the experiment has 
been declared global. Any file created by the Phase-1 processor 
will of course meet these requirements. However, since the files 
are ordinary ASCII text files, the user cannot be prevented from 
generating them with an editor. or altering those created by 
Phase-1. Such a procedure may at times be quite useful, but 
these restrictions as well as the syntax rules of the two sec- 
tions must be kept in mind if this is to be done successfully. 

There is no requirement that an Experiment Definition File 
contain any Command Mode text. While it makes no sense to input 
a file having only Parameter Blocks into Phase -2. there is a good 
reason for creating such files with Phase-1. When the dialog 
through which a Parameter Block is created begins. the user is 
first asked whether this will be a new experiment. If the answer 
is NO, he/she is then asked for a file name. The program will 
search the named file to find a Parameter Block having the same 
label (symbolic name) as the one about to be created. If such a 
Block is found, it is simply copied by Phase-1 and the need for 
the dialog is eliminated. Thus, if there are experiments which 
will be run from many Command Mode sequences, the user may wish 
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COMMAND MODE 



"Command Mode" is a pseudo assembly language which allows 
the user to control the flow of an orbit's operation! do simple 
arithmetic/ test results! and make real-time decisions on how to 
use the UVSP instrument based on the results of the previous ex- 
periment and the state of the Sun. 

The Command Mode instructions may reference a 32 word "user 
buffer" which contains status information as well as scratch mem- 
ory. Some of -these words are "read-only"; the user can read the 
contents of the word but cannot modify it. Others are 
"read-write" and can be altered as desired. Each word in the 
buffer has a symbolic name by which it is referenced. The buffer 
is defined as follows: 


Read-Write Memory 


XRASTR — X-raster coordinate 


The X-raster position within the UVSP's field of view to 
be used as the center for the next experiment. Range 
0-255. 


YRASTR - Y-raster coordinate 

The Y-raster position within the UVSP's field. of view to 
be used as the center for the next experiment. Range 
0-255. 


ITHRSH - Intensity threshold for Dopplergram servo correc- 
tion 

The Dopplergram experiment has an option which allows a 
drift correction to be applied to the wavelength. The po- 
ints used in calculating the correction must exceed this 
threshold to prevent statistical noise and roundoff errors 
at low intensity levels from unduly affecting the result. 


FLAG - Flare Flag 


When the HXIS flare flag is issued/ the SMM spacecraft 
computer (OBC) sets the top bit (bit 15) of this word to 
1/ thereby making the word negative. If bit 14 was previ- 
ously set to 1/ the experiment in progress is terminated; 
otherwise/ it runs to completion. Thus/ the user can cho- 
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ose to respond immediately to the flare flag or to finish 
his current observation first. If HXIS reports a "super 
flare"* the OBC will set both bits 13 and 15* and the ex- 
periment in progress will automatical ly terminate. 


GLMAXH - Global Lambda-max (high) 

The high order 2 bits of the wavelength drive position as 
determined by the last Global Lambda-max experiment. 


GLMAXL - Global Lambda— max (low) 

The low order 16 bits of the wavelength drive position as 
determined by the last Global Lambda-max experiment. The 
user should not normally write into these two locations. 
However* they are defined as Read-Write because they are 
loaded by some internally generated Command Mode code and 
must therefore be legal destinations for the MOVE instruc- 
t i on. 


Rl* R2* R3. R4. R5* R6* R7» R8 - User scratch registers 
The user may use these words as he wishes. 



Read-Only Memory L . ... 

LLMAXH - Local Lambda-max (high) 

The high order 2 bits of the wavelength drive position as 
determined by the last Local Lambda-max experiment. 


LLMAXL - Local Lambda-max (low) 

The low order 16 bits of the wavelength drive position as 
determined by the last Local Lambda-max experiment. 


FLAREX - X-coordinate of flare 

When the flare flag is issued* its X-position as deter- 
mined by HXIS is loaded into this word. If the user 
wishes to look at the HXIS location* he simply moves this 
word to XRASTR. 


FLAREY 


Y-coordinate of flare 


The Y coordinate of the HXIS flare location. 
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IMIN - The intensity measured at the darkest 
the previous raster. 


point during 


IMINX - X-coordinate of darkest point measured during the 
previous raster. 

IMINY — Y-coordinate of darkest point measured during the 
previous raster. 


IMAX - The intensity measured at the brightest point during 
the previous raster. 


IMAXX - X-coordinate of brightest point measured during the 
previous raster. 


IMAXY - Y-coordinate of brightest point measured during the 
previous raster. 


UMAX — The wavelength shift measured at the most blue 
shifted point during the previous raster. 



BMAXI - The intensity measured at the most blue shifted 
point during the previous raster. 


BMAXX - X-coordinate of most blue shifted point measured 

during the previous raster. 

BMAXY - Y-coordinate of most blue shifted point measured 

during the previous raster. 


RMAX - The wavelength shift measured at the most red shift- 
ed point during the previous raster. 


RMAXI - The intensity measured at the most red shifted 
point during the previous raster. 


RMAXX - 

X-coord inate 

of most 

red 

shifted 

point 

measured 

during 

the previous 

raster. 





RMAXY - 

Y-coord inate 

of most 

red 

shifted 

point 

measured 

during 

the previous 

raster. 
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The set of Command Mode instructions contained in a file is 
called a "Command Mode sequence". A special label, called an 
"entry point"* is used to indicate places where the execution of 
a sequence can be initiated. Entry point labels are distingu- 
ished from other labels by the fact that the first character in 
an entry - point label must be a dollar sign ($). Each sequence 
must contain at least one entry point. 


Each line of Command Mode text may contain up to five 
fields. Except that they must be in the proper order, there are 
no rules as to where the fields must be located on the line. 
Tabs and spaces are ignored* except that they serve as termina- 
tors for opcodes and operands and may not be imbedded within 
fields. 


The first field* which is optional* is the label. A label 
consists of one to six alphanumeric characters* the first of 
which must be a letter, and it is terminated with a colon (: ). 
If the label is preceded by a dollar sign ($>* it becomes an 
entry point. (The % is not actually part of the label. Thus* 
SENTRY: is an entry point label* but references to it are writ- 
ten as ENTRY, not SENTRY. For example, use GOTO ENTRY to branch 
to its line. ) If an entry point label is terminated with two co- 
lons <e. g. * SENTRY::), it becomes globally defined and can be 
referenced from other Command Mode sequences. That is* when sev- 
eral Experiment Definition files are combined during Phase-2 to 
create a single JR load* a START command in one file can cause a 
transfer to a globally defined entry point in a different file. 


Examp 1 es : - 

SEINAR: 
SGRANT: : 
ELMO: 
BRUCE: : 
JACQUES: 


An entry point label 
A global entry point label 
An ordinary label, usable for GOTO ELMO 
Illegal. Only entry points can be global. 
Legal* but the 7th letter will be ignored. 


The second field (which may be the first on the line) is the 
opcode field. The opcodes represent the set of legal instruc- 
tions which the Command Mode language is capable of executing. 
Only the first three characters of the opcode are checked for 
validity* but the user may type the whole word if he desires. 
Thus, the "start" command may be shown as START or STA. etc. The 
opcode field is terminated with a space or tab (or semicolon or 
RETURN. if no operand is required). The legal opcodes are des- 
cribed in the next section. 


The third and fourth fields contain the operands* the param- 
eters which the opcode requires in order to function. If two op- 
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codes are required. they must be separated by a comma. Operands 
may be either symbols (statement labels, parameter block names, 
or user buffer locations) or numbers. A number may optionally be 
preceded by a number sign (#). A number will be interpreted as 
decimal unless it is preceded by a double quote, mark (")/ in 
which case it is treated as octal. (The # must precede the " if 
both are present. ) A trailing decimal point is NOT permitted. 
The last operand can be terminated with a space, tab. semicolon, 
or RETURN. The last possible field is the comment field.. The 
comment field is initiated with a semicolon (; ). Anything after 
a semicolon is assumed to be a comment and is ignored. The semi- 
colon is only required when the comment is the only text on the 
line. If the comment follows Command Mode text. processing of 
the line ends when the fields required by the opcode have been 
verified, so the use of the semicolon becomes optional. 


To prevent accidental transfer to an undefined location, the 
last statement in any command mode sequence should be a START. 
GOTO, or STOP, or the last required field should be terminated 
with an exclamation point (!) which forces a stop. If this is 
not done, the PHASE2 compiler will insert a stop bit in the last 
instruction. 


Opcodes 


STOP (STO) 

Operands: None 

Terminates execution of the command mode sequence.. 


START (STA) 


Operand: Entry point name 

Causes a jump to an entry point. The entry point name 
does NOT include the dollar sign ($). If the entry point 
is not found within this Command Mode sequence, it must be 
globally defined in another sequence included in the 
PHASE2 command generation. Note that, if the entry point 
IS found in this sequence, there is no effective differ- 
ence between the START and the GOTO commands. 


There is a special form for starting C-list sequences from 
either A-list or B-list. Instead of using an entry point 
name as the operand for START, use a backslash (\) fol- 
lowed immediately by a number between 1 and 16. This will 
transfer control to the n-th C-list entry point. Note 
that there is no way within Command Mode to return to the 
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original list once the transfer to 
It requires a command from the OBC 


C-list has occurred, 
to accomplish that. 


GOTO (GOT) - 

Operand: Any label found in this file, including entry 

points. 

GOTO is the ‘‘branch" instruction and works in the same way 
- as the Fortran GOTO. 


EXECUTE (EXE) 

Operand: Experiment parameter block name 

This command causes the UVSP instrument to actually take 
data in the manner specified in the experiment parameter 
block referenced by the command. When the experiment is 
completed, processing of Command Mode statements resumes 
on the following line. 


MOVE (MOV) 


First operand: Any user buffer location or a number. 

Second operand: Any read-write location in the user 

buffer. 

The MOVE command copies requested data from one place to 
another. It can only write into a word for which the user 
haswriteaccess. 


ADD 


First operand: Any user buffer location or a number. 
Second operand: Any read-write location in the user 
buffer. 

The ADD command performs 16-bit signed integer addition, 
adding the first operand to the second and storing the sum 
in the second operand location. 
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SUBTRACT (SUB) 


First operand: 
Second operand: 
buffer. 


Any user buffer location or a number. 
Any read-write location in the user 


The SUBTRACT command performs 16-bit signed integer sub- 
traction* subtracting the first operand from the second 
and storing the difference in the second operand location. 


COMPARE (COM or CMP) 

Operands: Any user buffer locations or a user buffer lo- 

cation and a number. 


The COMPARE command compares the two operands* treating 
them as 16-bit signed integers. If it finds that the 
first operand is greater than or equal to the second oper- 
and* the next Command Mode line is skipped; otherwise*, it 
is executed. Note that the order of the operands is im- 
portant. COMPARE A* B should be thought of as 

IF (A. GE. B) SKIP 


COMPARE is the only opcode which can accept 
its second operand. 


number as 


AND 


First operand: Any user buffer location or a number. 
Second operand: Any read-write location in the user 
buffer. 

The AND command performs a 16-bit Boolean "and" of the two 
operands and leaves the result in the second operand loca- 
tion. 


SLIT (SLI) 

Operand: A number between 1 and 22 or letter between "A" 

and "V" 

The SLIT command causes the UVSP spectrograph slit to 
change. There is a dual designation system in which each 
slit can be identified either by a letter or a number; 
the SLIT command will accept either type of identifier. 
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MESSAGE (MES or MSG) 


Operand : 


An unsigned number not exceeding 4095. 


The MESSAGE command inserts the designated number into the 
telemetry stream, encoded in such a way that the receiving 
software on the ground will recognize it as a message 
rather than UVSP data. A list of standard messages will 
be developed at some future date. 


TIME (TIM) 

Operand: Any read-write location in the user buffer (but 

should be one of the scratch registers R1 through R8). 

JR keeps a count of the number of spacecraft telemetry 
minor frames which have occurred since sunrise. Since a 
minor frame takes .064 seconds, this counter can be used 
as an elapsed time clock. The TIME command copies the 
minor frame counter into the designated user word. 
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EXPERIMENT PARAMETER BLOCKS 


The Experiment Parameter Blocks are placed at the end of the 
input file. All of the command mode statements must preceed the 
parameter blocks. The parameter block section is introduced with 
the line: 

. PBLK 


This is the 
first line 
name of the 
characters* 
with one or 


only occurrance of this symbol within the file. The 
of each parameter block must begin with the symbolic 
experiment. It must contain 1 to 6 alphanumeric 
beginning with a letter* and it must be terminated 
two colons* depending on whether it is to be a local 
or g lobal ly— defined name. The parameter block consists of a sub- 
set of the following lines: 


EXPER TYPE = 

SLIT = 

LOOP CONTROL = 

INTVL-1 = 

INTVL-2 = 

WAV POSITION = 

WAV OFFSET = 

# OF WAVLENS = 

WAV STEP SIZ = 

POL POSN NUM = 

POL STEP SIZ = 

X POSN NUM = 

X STEP SIZ = 

Y POSN NUM = 

Y STEP SIZ = 

OBSERVATIONS = . . 

DISABLE INCR 
SERVO INTRVL = 

CALIB INTRVL = 

CALIB AFTER 

CALIB STPSIZ = 

GATE TIME = 

Some of the lines are manditory. Others are optional 
on the type of experiment being defined. However* 
which do appear must occur in the indicated order. 


depending 
the lines 
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EXPER TYPE = 


EXPER TYPE = must be 


corresponding to one 
They are: 


followed by a number between 1 and 21* 
of the 21 defined types of experiments. 


1. SPECTROHELIOGRAM 

2. DOPPLERGRAM 

3. POLARGRAM 

4. MAGNETOGRAM 

5. I— MAX 

6. I -MIN 

7. FLASHWATCH 

8. RED-MAX 

9. BLUE-MAX 

10. SPECTROGRAM 

11. LAMBDA-MAX (GLOBAL) 

12. LAMBDA-MAX (LOCAL) 

13. LAMBDA-MIN (GLOBAL) (Not implemented) 

14. LAMBDA-MIN (LOCAL) (Not implemented) 

15. SPECIAL 

16. PROFILE MATRIX 

17. MULTI-LINE PROFILE MATRIX 


18. - RASTERS THRU THE LINE 

19. POLARIZED PROFILE MATRIX 

20. POLARIZED MULTI-LINE PROFILE MATRIX 


21. POLARIZED RASTERS THRU THE LINE 


SLIT = 

The slit is designated by a letter between A and V. This 
line is advisory only# since the experiment control block in 
JR contains no reference to the slit. However# since the 
wavelength drive setting for any given wavelength is deter- 
mined by the slit in use# the Phase-2 processor requires the 
information. Note that the experiment may not work properly 
if the wrong slit is in the beam when the experiment is run. 


LOOP CONTROL = 


JR operates the UVSP 
order of the nesting 
determine the functio 
trol of 4 loops: the 

and the polarimeter. 
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control XYPW would c 
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and another full raster made. Finally* when an entire set 
of polarized sp ec trohe 1 i ograms had been taken* the wavel- 
ength drive would be stepped and the whole process repeated. 
Of course* the repeat count on some of the loops could be 
set to 1* effectively removing the operat ion -from the exper- 
iment. - - : 


Once the experiment type has been chosen* only certain of 
the operations are relevant. For example* a spectrohel iog- 
ram requires an X and Y raster only* with neither the wavel- 
ength drive nor the polarimeter par tic ipating (except for 
the initial wavelength setting). Only the relevant loop 
identifiers (X* Y> W. and P) can appear on the line* and all 
of the relevant ones MUST appear. 


INTVL-1 = 


The UVSP instrument contains 5 detectors (numbered 1 through 
5) and two pulse counters. Because there are only two 
counters* only two of the detectors can be taking data at 
any one time. Since it will often be desirable to use four 
detectors in an experiment (4 lines* or the two wings of 2 
lines)* each position within an experiment can be divided 
into two data gathering intervals, with different detectors 
connected to the counters during each interval. For each 
interval* one or two detectors may be specified (or* for In- 
terval-2. none). There are two rules governing how detec- 
tors can be combined. The first is that, if detector-5 is 
specified, it must be used alone during that interval. The 
other is that, if two detectors are specified for an inter- 
val* they must be an even- and an odd-numbered detector. 
Thus, 1 and 2 can be combined* or 1 and 4, but not 1 and 3. 


INTVL-2 = 

Same as for INTVL-1. except that the Interval-2 detectors 
may be set to OFF* which means that Interval-2 is not used. 
When Interval-2 is OFF* all data taking time is used by In- 
terval-2* when both intervals are used, each has a 50 per- 
cent duty cycle. 


WAV POSITION = 

This line indicates an absolute wavelength setting, in Ang- 
stroms, at which the experiment is to be started. 
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WAV OFFSET = 


If this line appears* the wavelength drive will be moved to 
the specified distance (in Angstroms) from the position 
identified by a previously run Lambda-Max experiment. The 
offset is followed by the field (LCL) if it is-to be inter- 
preted as a local offset (that is* the offset is to calcu- 
lated from the position stored in the Local Lambda-Max posi- 
tion contained in the words LLMAXH and LLMAXL in the user 
buffer) or by (GBL) if it is to be interpreted as a global 
offset (i.e. * using GLMAXH and GLMAXL). Note that the WAV 
POSITION and WAV OFFSET lines are mutually exclusive; one 
but not both must appear. 


# OF WAVLENS = 

If the wavelength drive is to move during this experiment* 
i.e.* it is to be a spectral scan of some type* this line 
contains the number of different wavelengths to be sample.d. 
If the wavelength drive does not move during the experiment, 
this and the following line do not appear. 


WAV STEP SIZ = 


This line contains the number of wavelength drive increments 
which the grating is to be moved for each spectral step. If 
the grating is being used in 2nd order* which will be the 
case for most of the slits* one drive increment corresponds 
to about 50mA. 


POL POSN NUM = 

If the polarimeter is to move* this is the number of posi- 
tions at which polarimetry measurements will be taken. If 
the polarimeter does not move* this and the following line 
do not appear. 


POL STEP SIZ = 


The polarimeter wheel moves in steps of 22.5 degrees (1/16 
rotation). This line shows the number of these 22. 5 degree 
steps the waveplate is to be moved between each measurement. 
Since the retardation of the waveplate is highly wavelength 
dependent* one cannot automat i ca 1 1 y associate a given rota- 
tion with a corresponding retardation without knowing the 
wave length. 
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X POSN NUM = 


This is the number of points which the X-raster mechanism 
will take along each X— line. If the X-raster mechanism does 
not move* this and the next line do not appear. 


X STEP SIZ = 

This is the size of each raster step in the X-direction. 
The UVSP rastering mechanism has been designed so that each 
step is equivalent to one arcsec on the Sun. 


Y POSN NUM = 

This is the number of points which the Y-raster mechanism 
will take along each Y-line. If the Y-raster mechanism does 
not move* this and the next line do not appear. 


Y STEP SIZ = 


This is the size of each raster step in the Y-direction. 
The UVSP rastering mechanism has been designed so that each 
step is equivalent to one arcsec on the Sun. 


OBSERVATIONS = . - 

This is the number of times the complete operation is repe- 
ated in order to constitute the experiment. For example, a 
30-frame movie consists of a sp ec tr oh e 1 i ogram repeated 30 
times. 


DISABLE INCR 


This line commands JR not to increment the experiment se- 
quence number on the second and subsequent times the EXECUTE 
of this experiment is preformed from Command Mode (the se- 
quence number is always incremented on the first EXECUTE). 
This will allow multiple executions of the experiment to be 
formatted into a single data file for ground analysis. The 
DISABLE will remain in effect until one of several condi- 
tions* usually the START command or its OBC equivalent* is 
encountered. 
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SERVO INTRVL = 


After N repetitions of a velocity-type experiment* the grat- 
ing drive can automatical ly be moved to center the slits on 
the mean line position found during those measurements. 
This line shows the number of complete repetitions of the 
experiment which must occur before this “servo" balancing is 
done. The number must be such that N = (2**1 - 1). where I 
is an integer. If this line does not appear* servo balanc- 
ing will not be done. 


CALIB INTRVL = 


Calibration involves offsetting the grating drive by some 
amount and repeating the measurement cycle. This would gen- 
erally involve either moving to the nearby continuum to pro- 
vide a null signal or shifting a spectral by some amount to 
provide a known signal level. This line shows the number of 
complete repetitions of the experiment which must be com- 
pleted before making a calibration run. The number must be 
of the form N = (2**1 — 1). If no calibration is to be 
done, either because this is not a velocity-type experiment 
or because it was not requested, this and the next two lines 
will not appear. 


CALIB AFTER - 

Calibration is performed after the completion of a specified 
loop in the loop control. The loop letter can either be one 
of those shown on the LOOP CONTROL line above, or it can be 
an S for Servo loop, which is always the outermost loop. 


CALIB STPSIZ = 

This is the number of wavelength drive steps by which the 
grating is to be offset to make the calibration number. 
Steps correspond to 50mA for wavelengths between 1000A and 
1850A. and to 100mA for longer wavelengths. 


GATE TIME = 


This is the integration time per measurement, in seconds. 
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EXPERIMENT DEFINITION FILES 
Examp 1 es 


EXAMPLES 


FILE DEMOl.DEF 


GENTRY: EXE LMAX FIRST DO A GLOBAL LAMBDA-MAX 

MOV LLMAXH, GLMAXH 
MOV LLMAXL/ GLMAXL 

EXE MOVIE THEN A. SPECTROHEL I OGR AM MOVIE 

STOP 

. PBLK 


LMAX: 



EXPER TYPE =11 .LAMBDA-MAX (GLOBAL) 

SLIT = M 

LOOP CONTROL = W 
INTVL-1 =1 
INTVL-2 OFF 

WAV POSITION = 1234. 567 
# OF WAVLENS =128 
WAV STEP SIZ = 3 
OBSERVATIONS = 1 

GATE TIME =1 


MOVIE: : EXPER TYPE = 1 SP EC TR OHEL I OGR AM 

SLIT = M 

LOOP CONTROL = XY 

INTVL-1 = 1-2 

INTVL-2 = 3-4 

WAV OFFSET = -2.004 < LCL ) 

X POSN NUM = 16 
X STEP SIZ = 3 

Y POSN NUM = 16 

Y STEP SIZ = 3 
OBSERVATIONS = 30 
GATE TIME = 0. 064 
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Examples — 


i FILE DEM02. DEF 

*START::EXE FLASH THIS IS A GLOBAL ENTRY POINT 

COM IMAX, 8000 
GOTO START 
MOV IMAXX, XRASTR 
MOV IMAXY, YRASTR 

COM 20000, IMAX SUPER FLASH? 

IF SO, USE EXP4 IN C-LIST 
IF NOT, PROFILE MATRIX, THEN 


7 FLASH WATCH 

= XY 


0. (LCL > 

8 
3 

8 

3 

= 1 
128 

MTRX: EXPER TYPE = 16 PROFILE MATRIX 

SLIT = B 

LOOP CONTROL = WXY 
INTVL-1 =1-2 
INTVL-2 = 3-4 
WAV OFFSET = 0. (LCL) 

# OF WAVLENS =11 
WAV STEP SIZ = 3 
X POSN NUM = 8 
X STEP SIZ = 3 

Y POSN NUM = 8 

Y STEP SIZ = 3 
OBSERVATIONS = 1 
GATE TIME = 1 


START \4 
EXE MTRX! 

. PBLK 


FLASH: EXPER TYPE = 

SLIT = B 
LOOP CONTROL 
INTVL-1 = 1 
INTVL-2 OFF 
WAV OFFSET = 
X POSN NUM = 

X STEP SIZ = 

Y POSN NUM = 

Y STEP SIZ = 
OBSERVATIONS 
DISABLE I NCR 
GATE TIME = C 


2-18 


STOP 



CHAPTER 3 


PHASE- 1 


PHASEi. TSK is an RSX-11M task which is initiated with the 
usual RUN PHASEI command to MCR (or simply PHI if the task has 
been installed). After Phase-1 identifies itself, it asks what 
type of terminal it is being run from. There are three legal 
answers: answer T if the terminal is a Tektronix 4000-series 
terminal; answer L if the terminal is a Lear-Siegler ADM-3A; 
answer D if the terminal is a Decwriter or other printing termi- 
nal. (A simple RETURN will default to a T. ) The answer allows 
the program to provide the proper control characters to erase the 
video terminals and to provide a suitable number of lines per 
page on the terminal screen. After the terminal question has 
been answered. the program will prompt with PH1> and wait for a 
Phase-1 command. The commands are described in the next section. 

Phase-1 is program designed to facilitate the creation of 
Experiment Definition Files. It contains two basic sections, 
corresponding to the two types of text contained in the Experi- 
ment Definition Files: Command Mode text and Experiment Parame- 
ter Blocks. The former is handled by a very basic editor capable 
of inserting. deleting. and listing lines. It also does some 
simple syntax checking. However, it is by no means idiot-proof. 
The user can easily create Command Mode text which will be re- 
jected by the Phase-2 processor, which demands perfection. The 
text will generally be s y ntac t i ca 1 1 y legal as long as the lines 
are entered sequentially. However, if lines are deleted or are 
inserted in the middle of existing text. Phase-1 bears no respon- 
sibility for the results, and the user must depend on his/her own 
proper understanding of the rules for Command Mode instructions. 
On the other hand, the dialog which creates Experiment Parameter 
Blocks IS idiot-proof (we hope) and will always produce a legal 
block. 

Some of the experiment types are not completely defined by 
their Parameter Blocks, but rather require accompanying Command 
Mode instructions to implement their action. For example. a 
FLASH WATCH experiment is actually an I-MAX (Intensity Maximum) 
experiment. The I-Max value is compared to the threshold with 
Command Mode instructions to determine whether a "flash" has oc- 
curred and requires special action. Phase-1 will automatically 
insert these needed lines of Command Mode text, but to do so it 
must know the experiment type. Therefore, whenever the user in- 
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serts a line containing the EXECUTE instruction followed by a 
Parameter Block name which has not been previously defined* 
Phase-1 will immediately jump into the Parameter Block dialog. 
This tends to be annoying* so the user is advised to create all 
of the Parameter Blocks needed for the file before beginning to 
insert Command Mode text. This is* however* only a suggestion 
and not a requirement. 


The Experiment Definition Files created as output from 
Phase-1 can be used directly as input to Phase-2. In particular* 
Phase-1 automatical ly provides the . PBLK statement which must 
separate Command Mode text from Parameter Blocks. The file name 
is also added as a comment line at the beginning of the text* so 
that listings can be placed in a documentation file (notebook) 
without additional identification. 


Any Experiment Definition File created by Phase-1 can con- 
tain up to 60 lines of Command Mode text and up to 32 Parameter 
Blocks. Each text line can hold up to 72 characters. (Only 64 
columns are printed with the list commands* but all characters 
are written into the output file. Note that a TAB is a single 
character but may account for up to 8 columns. ) Blank lines are 
permitted to improve readability* but they count as part of the 
60 line limit. 

There are no defaults for the names of output files from 
Phase-1. However* Phase-2 accepts . DEF as the default file type 
for inputs to it* so the user may find it convenient to use that 
type unless other naming conventions are developed. 
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PHASE- 1 COMMANDS 



When the Phase-1 processor prompts with PH1>» the user must 
enter a command. Each command consists of a single letter which 
mag or mag not be followed bg a number. All commands are termi- 
nated with a RETURN. Onlg one command can be entered in response 
to a prompt. There are nine defined commands. They are: 



A 

D 

E 

I 

L 

P 

R 

T 

W 

z 


Abort and restart. 

Delete. 

Write output file/ then exit. 
Insert. 

List. 

Create Parameter Block. 

Review Parameter Block. 

List top of buffer. 

Write output file. 

Exit. 


A - Abort and restart. 

The A command cancels all of the input received to that 
point# both Command Mode text and Parameter Block defini- 
tions# and allows the user to begin again. 


Dn - Delete line-n. 


The Delete command requires that a line number be included as 
part of the command. The command deletes the specified line 
from the Command Mode buffer. All following lines are imme- 
diately re-numbered to reflect their new position in the 
text. Note that, if you wish to delete a number of succes- 
sive lines. you must either do it from the bottom up or you 
must specify the SAME line number for each Delete command, 
since the following lines get re-numbered each time. For ex- 
ample. to delete lines 4. 5. and 6. use either 
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PH1>D6 

PH1>D5 

PH1>D4 

PH1>D4 

PH1>D4 

PH1>D4 


E - Write output file, then Exit 

The E command provides a convenient means of terminating a 
Phase-1 command generation session. Phase-1 will first ask 
for the output filename (see the "W" command below for deta- 
ils). then exit after creating the file. 


I or In - Insert 

The I command allows the user to insert lines of Command Mode 
text. If the command is used by itself, the text is placed 
at the end of buffer, following all previously entered lines. 
If a number is associated with the command, the text will be 
inserted ahead of the line which currently bears that line 
number. All lines are terminated with the RETURN key. 
Command Mode input will continue until the user types the 
ALTMODE or ESCAPE key. (The exception occurs when a text 
line includes the EXECUTE opcode for an experiment which has 
not been previously defined. The program will automatical ly 
terminate insert mode and transfer the user to the Parameter 
Block definition dialogue. ) 

When Phase-1 is in insert mode, it will automatical ly place 
the start of each line 8 spaces from the terminal's left hand 
margin. This is done to allow room for the line numbers pro- 
vided by the listing commands (L and T) and then to align new 
input with the listed text. This spacing is NOT part of the 
inserted line. and the user will normally want to start the 
line with a TAB unless it contains a label. 


L. Ln, and T - List 

The listing commands cause up to 30 lines of Command Mode 
text (20 lines on a Lear-Siegler terminal) to be displayed. 
The L command lists the last 30 lines. The T (top) command 
lists the first 30 lines. The Ln command (where n is a 
number) lists 30 lines beginning at . line-n. If the total 
Command Mode text does not exceed 30 lines, the L and T com- 
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mands produce identical results. 



P - Create Parameter Block 

he command initiates the dialogue required to define an 
experiment parameter block. 


R - Review Parameter Block. 

After entering the R command, you will be asked for a Parame- 
ter Block name. If the name you specify is that of a Block 
which has been defined, Phase-1 will list the block on the 
terminal. 


W - Write output file 


Once an experiment has been completely defined, it must be 
written into a disk file. Phase-1 asks for a filename, which 
the user must fully enteri there are no defaults for either 
name or type. Once the file is written out, the Phase-1 
buffers are cleared, allowing a new experiment to be defined. 


Z - Exit 

The Z command causes the Phase-1 processor to exit. No out- 
put is created at that time, although files previously writ- 
ten out are of course preserved. 
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PARAMETER BLOCK DIALOG 


The Experiment Parameter Block section of Phase-1 is con- 
structed as an interactive dialog which leads the user through 
the steps required to create a Parameter Block. The hardware 
controls which are needed in any given Parameter Block depend on 
the experiment being defined. For example/ if you have specified 
a spec trohe 1 iogram as your experiment type/ you will NOT be asked 
for a wavelength step size/ since a sp ec tr oh e 1 i ogram is by defin- 
ition a single-frequency experiment. All inputs to the program 
are terminated with a RETURN. 

For every question you are asked/ there will be a default 
answer. The default will usually be shown between square brack- 
ets/ i.e. C 1. You can accept the default by simply typing a 
RETURN. (Note that you can't use a RETURN to enter a zero unless 
the default happens to be 0; you must type an explicit 0. ) The 
program contains an internal set of defaults for each experiment 
type. Whenever you specify a new type/ the program resets the 
defaults accordingly. However/ if you are creating an experiment 
of the same type as the previous one/ your values from last time 
in general become the current defaults. 


facility has been built into the dialog to allow the user 
to back up any time he decides he has made a mistake. To back 
up/ type CTRL-P when the next question is asked. The program 
will echo ~P on the terminal and then repeat the previous ques- 
tion. Note that your previous answer has become the new default. 
You may back up as many steps as you like. 


This section describes the prompts and responses needed to 
create an Experiment Parameter Block. When the dialogue is com- 
pleted/ the entire Parameter Block is printed on the terminal/ 
and the user is asked whether it is OK. If the response is posi- 
tive/ the Block is stored for inclusion in the next output file 
created. If the user responds with an Nz the Block is not saved. 
However/ the user could rapidly step through the dialog to create 
a slightly different Block because his answers have become the 
defaults unless a different experiment type is specified. It is 
also still possible to back up from the OK question using CTRL-P. 


PARAMETER BLOCK SYMBOLIC NAME 


This question is only asked if you have arrived here by using 
the Phase-1 "P" command. If you entered the dialog by in- 
serting an EXECUTE line ( the Parameter Block name was speci- 
fied as the operand/ so this question is skipped. The de- 
fault is EXPni where n is a number which increments automati- 
cally if you accept the default. If you specify a name of 
your own/ it must consist of one to six alphanumeric char- 
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acters (letters and numbers) beginning with a letter. 


NEW EXPERIMENT? 

A new experiment is one which has to be defined by means of 
the dialog. However< you may wish to pick up an experiment 
which was previously defined in a different Experiment Defin- 
ition File. If your answer is YES. the dialog continues. If 
your answer is NO you will be asked for a file name. Phase-1 
scans the file for a Parameter Block having the correct name. 
If it finds the block, it copies it in and skips the dialog 
entirely. The user is shown the contents of the Block by 
Phase-1 . 


DECLARE BLOCK NAME GLOBAL? 


If identical Parameter Blocks with the same global symbolic 
names exist in two or more files input to PHASE2 during the 
creation of a JR load, the Phase-2 processor will only create 
one copy of the corresponding Experiment Parameter Block in 
the JR load, thereby saving JR memory. Global symbols will 
appear in the Parameter Block followed by two colons, while 
local symbols are followed by a single colon. (Note: you do 
NOT specify the colon(s) as part of the symbol. The program 
adds them automatical ly. ) 


EXPERIMENT TYPE 

The program next prints a numbered list of the possible ex- 
periment types with an arrow pointing to the default, and 
asks for your type selection. It then erases the screen and 
proceeds with the questions which determine the physical con- 
trol of the instrument. 


SLIT 


The answer must be a letter between A and V or a number 
between 1 and 22. There are two naming systems in use for 
designating slits, one using letters and the other using 
numbers. Phase-1 will accept either system. The slit you 
select determines some of the defaults for other parameters. 
In particular, the slit width becomes the default value for X 
step size and for wavelength step size, while the slit length 
becomes the Y step size. The slit must also be known so that 
the requested wavelength can be converted to wavelength drive 
position. which is highly slit dependent. Note, however, 
that this will NOT cause the selected slit to be moved into 
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the optical path in the UVSP when the experiment is run. The 
slit mechanism can only be changed with the Command Mode SLIT 
command or by a command from the OBC. If the wrong slit is 
in place> the experiment may not produce usable data. 


LOOP CONTROL 

The experiment control program in JR operates as a set of 
nested DO loops whose order can be specified. There are five 
loops to be considered: X-raster. Y-raster ( polarimeter 
step, wavelength step, and Doppler servo. Servo is always 
the outer loop, but the other four can be put in any order. 
The first function specified will be the inner loop, the next 
will be the 2nd loop. etc. All of the loops are not relevant 
to all types of experiments. and you are only allowed to 
specify the required ones. 


INTVL-1 DETECTOR (S) 


The UVSP instrument contains 5 detectors (numbered 1 through 
5). and two pulse counters. Because there are only two pulse 
counters, only two of the detectors can be taking data at any 
one time. Since it will often be desirable to use four de- 
tectors in an experiment <4 lines, or the two wings of 2 
lines). each position within an experiment can be divided 
into two data gathering intervals, with different detectors 
connected to the counters during each interval. For each in- 
terval. one or two detectors may be specified (or. for Inter- 
val-2. none). There are two rules governing how detectors 
can be combined. The first is that, if detectoi — 5 is speci- 
fied. it must be used alone during that interval. The other 
is that, if two detectors are specified for an interval, they 
must be an even- and an odd-numbered detector. Thus. 1 and 2 
can be combined, or 1 and 4. but not 1 and 3. To specify two 
detectors. the user can either type the two numbers consecu- 
tively or can separate them with a dash (-). That is. detec- 
tors 1 and 4 can be entered either as 14 or as 1-4. 


INTVL-2 DETECTOR (S) 

Same as for INTVL-1. except that the Interval-2 detectors may 
be set to OFF, which means that no data is taken during In- 
terval— 2. Enter either 0 or OFF to specify the OFF condi- 
tion. 
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WAVELENGTH 


The user must respond to this query with a floating point 
number which gives the wavelength in Angstroms. The number 
will be interpreted in one of two ways, depending on its 
value. If the number is at least 1000., it will be inter- 
preted as an absolute wavelength. However, if it lies 
between -1000. and 1000. (exclusive )> it will be used as a 
wavelength offset. In either case, only three places to the 
right of the decimal point are significant, and trailing 
zeros may be omitted. The decimal point is optional if a 
whole number is being entered. 


LOCAL OR GLOBAL OFFSET? 

If an absolute wavelength was specified in the preceding 
question. this one will not be asked. If an offset was se- 
lected. you must specify whether the offset is to be calcu- 
lated with respect to the wavelength found by the most recent 
Local or Global Lambda-Max experiment. 


NUMBER OF WAVELENGTHS 


This is the number of different equally spaced wavelengths at 
which data will be taken. The acceptable range of answers is 
1-32767. This and the next question are only asked for ex- 
periment types which require motion of the grating, not in- 
cluding the initial wavelength setting. 


WAVELENGTH STEP SIZE 

Your response to this question must be the number of mechani- 
cal steps of the grating drive mechanism which you desire. 
If the grating is being used in 2nd order, each step corres- 
ponds to 50mA. The range of acceptable responses is 1-31. 


NUMBER OF POLAR IMETER POSITIONS 

The acceptable range is 1-32. This will be the number of 
measurements you wish to take in different polarization 
states at a given point. 



. 0 - 
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POLAR I METER STEP SIZE 


Each polarimeter step is a 22. 5 degree rotation* or 1/16 of a 
full circle. The acceptable range of responses is 1-8. 


X-POSITION NUMBER 

This is the number of points in a line along the X-direction. 
Answers in the range 1-256 are acceptable. The initial de- 
fault will be the maximum range (255) divided by the width of 
the selected slit. 


X-STEP SIZE 


This question controls the size of the raster step in the 
X-direction. The default value is the width of the selected 
slit, unless a velocity type experiment (Dopp lergram) . is 
being done. In that case, the default X-step is 1 arcsec. so 
that measurements can be averaged to supress spurious veloci- 
ty signals due to intensity inhomogeneities across the slit 
(the Beckers effect). The legal range is 1-255. However, 
the product of the number of steps and the step size cannot 
exceed 255. 


Y-POSITION NUMBER 

This is the number of points in a line along the Y-direction. 
The acceptable range is 1-256. The default is set such that 
a Y-step size equal to the slit length will produce a square 
raster. 


Y-STEP SIZE 

The default value is the length which will produce a square 
raster. Answers in the range 1-255 are legal, but step size 
times step number cannot exceed 255. 


NUMBER OF OBSERVATIONS 


This is the total number of repetitions of the experiment, 
including the first, but excluding servo and calibration cy- 
cles. The answer must be in the range 1-16383. Certain 
types of experiments, those which are looking for a minimum 
or maximum value within the scan, are by their nature res- 
tricted to a single execution. For these experiment types, 
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this question is skipped. 


DISABLE SEQUENCE INCREMENT? 

In normal operation, the "sequence" number which is internal- 
ly generated by JR is incremented at the beginning of each 
experiment. When the data stream is processed on the ground, 
the reformatter program will use this number to determine 
when a new data file should be started. If the sequence 
number does not change. more than one experiment will be 
placed in a single file. Some types of experiments 
( f lash-watch. multi-line profile matrix) are intrinsically 
designed to have multiple observations in a single file. so 
the sequence increment will be automat i ca 1 1 y disabled. Other 
types (Lambda-max. I-max. etc. ) are by their nature single 
measurements, so the number always increments. For the rema- 
ining types, the user is offered the option of disabling the 
automatic incrementation. Note that this feature only af- 
fects the re-using of an experiment after first returning - to 
Command Mode; multiple observations as specified in the 
answer to the OBSERVATIONS question are always placed in a 
single data file. 


SERVO INTERVAL 


After N repetitions of a velocity-type experiment, the grat- 
ing drive can be automat i ca 1 1 y moved to center the slits on 
the mean line position found during those measurements. The 
desired number of complete experiment repetitions (including 
the first) which must occur before this balancing is done is 
called the "servo interval". Legal responses range from 0 
(to suppress the operation) to the number of observations 
previously specified, but must satisfy the equation N=(2#*I - 
1 ). 


CALIBRATION INTERVAL 

Calibration involves offsetting the grating drive by some 
distance and repeating the previous measurement cycle. It 
generally involves moving the spectrograph to a nearby con- 
tinuum position to provide a null signal or shifting the 
spectral line by a set amount to inject a known signal level. 
The legal range is the same as for the servo interval. 
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CALIBRATE AFTER 


Calibration is performed after the completion of a specified 
loop in the loop control. The legal responses (given with a 
single letter) are the loops used in this type experiment or 
"S"f which refers to the servo loop and is always the outer- 
most loop. 


CALIBRATION STEP SIZE 

Respond with the number of grating steps by which the spec- 
trometer -must be offset to do the calibration measurement. 
The grating will automatical ly be returned to its previous 
position after completion of the calibration cycle. 


GATE TIME 

The gate time is specified in seconds* and is a floating 
point number (although the decimal point is optional for a 
whole number). Any value greater than zero is legal* al- 
though anything less than .064 sec will merely waste photons* 
since that is the telemetry period between data values. 



CHAPTER 4 


PHASE-2 


OPERATION 


The Phase-2 Command Generation processor is the program 
which compiles the desired Experiment Definition Files into a JR 
load. Phase-2 will normally be run once per day by the daily 
planner or his/her appointee. Before Phase-2 can be run# the en- 
tire load must have been planned. Because Phase-2 is generating 
an actual memory load for JR# it is extremely intolerant of er-r 
rors. If you specify an Experiment Definition File which it 
can't find # it will notify you and let you try again. ALL OTHER 
ERRORS ARE CONSIDERED FATAL/ and Phase-2 exits after issuing an 
error message. 

From the user's point of view# the operation of Phase-2 is 
extremely simple. The program is initiated with RUN PHASE2 (or 
simply PH2 if the task has been installed). Phase-2 first in- 
forms the user of the load which is to be replaced by the one 
about to be created. For example: 

> SUPERCEDING A-LIST LOAD CREATED AT 11:29AM ON 18-0CT-79 

The operator should verify that this was indeed the previous load 
uplinked to JR. If it was not# Phase-2 will have incorrect 
knowledge of what part of JR memory is available to it# and un- 
predictable results may occur. (If this message does not match 
reality# the operator should exit from Phase-2 and. using PIP# 
find the version of the file JRMAP which was created at the time 
and date of the previous load creation, then copy that file using 
the /NV switch to make it the latest version of JRMAP. ) 

Phase-2 then types LIST (A, B# OR C): and the operator res- 
ponds with the observing list to be created. (RETURN with no 
letter causes a clean exit. ) If the answer is C# the program 
types 

*** WARNING - CURRENT B-LIST WILL BE DESTROYED *** 

DO YOU WANT TO PROCEED? CY/N3 

Any answer other than Y will cause an exit. Due to the way in 
which Phase-2 manages JR ' 5 memory# a C-list load can only be 
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uplinked on a day on which B-list is not active (i. e. « an A-day). 
The B-list load u/hich will normally be sent up on the same day 
must be created after the C-list load. 


Finally* Phase-2 will ask for a FILENAME* and the operator 
responds with the name of an Experiment Definition File. Phase-2 
accepts . DEF as its default file type* but there is no filename 
default. After Phase-2 has processed that file* it will prompt 
for another one* and will continue the process until the operator 
responds to a FILENAME prompt with a simple RETURN. Phase-2 then 
completes the creation of the JR load and exits. 
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OUTPUT FILES 



The Phase-2 processor creates a number of files. In the discus- 
sions which follow/ we will assume that an A-list load has been 
created. If it had been a B-list or C-list load/ those filenames 
which are shown beginning with an "A" would begin with a "B" or 
"C" instead. 


ALOAD. JRO 

This is the actual binary load file. It or a derivative of 
it must be passed to the SMM Command Management System for 
uplink to the spacecraft. The file is in a format compatible 
with the JR Test Interpreter designed by Roger Rehse. 


ALIST 


This is the listing file which will be used during the ob- 
serving day to monitor the action of the UVSP and should be 
retained as part of the archival record of mission opera- 
tions. 


The listing contains two columns. The left hand side shows 
all of the Command Mode text contained in the load/ along 
with the absolute address and octal contents of each word. 
Entry points are flagged with their appropriate letter and 
number/ followed by a right angle bracket (e.g./ A4>>. 
References to entry points via START instructions have the 
corresponding entry point flag shown between angle brackets 
(e.g.* START FLARE <A12>). Parameter Blocks are similarly 
referenced/ except that A-list Parameter Blocks are flagged 
with an X/ B-list Blocks with a Y, and C-list Blocks with a 
Z, and they are enclosed in square brackets (e.g./ EXECUTE 
BLOCK CX31). 


The right hand column shows the symbolic and flag names of 
each Parameter Block/ along the address and contents of each 
word in JR memory. The meanings of the sub-fields (bit pat- 
terns) within each word are verbally described beside the 
word. This display is better suited to showing what JR will 
do with the UVSP mechanisms than what the scientific intent 
of the experiment is/ and it should therefore be a useful 
tool for trouble-shooting if necessary. 
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ALIST. VEC 


This is the "Vector Association" 
file which lists# for each entry 
that entry point and the name of 
File in which the entry point is 


file. It is a readable text 
point# the symbolic label of 
the Experiment Definition 
defined. 


JR MAP 


JRMAP is a file which maintains a record of the 923 words of 
JR memory to which Phase-2 has access. The file contains 
three records. The first contains the list, date# and time 


of the load creation. The second record 
923-byte arrays. Each byte in the first array 
of the characters A# fi> C< X# 

C refer to A-list# B-list. 
pectively# while X# Y< 


contains two 
contains one 
Y# or Z# or a zero. A# B. and 
and C-list Command Mode words res- 
and Z refer to A-list# B-list, and 


C-list Parameter Blocks. A byte containing a zero is not as- 
signed to any of the observing lists. For each byte which 
contains a letter# the corresponding byte in the other array 
contains the number of the entry point or Parameter Block 
within that list. Thus, if the bytes corresponding to a 
given JR word contain "B" and 4, the word is part of the Com- 
mand Mode code following entry point B4# while Z12 would be- 
long to the 12th Parameter Block in C-list. (The first 49 
bytes in each array# which correspond to the observing list 
vectors# are not filled in. ) The third record is a 923 word 
array containing the JR memory image, that is# the actual 
contents of JR's memory after this load has been uplinked. 


The records can be read and the heading typed with the fol- 
lowing Fortran code: 


DIMENSION JR IMAG( 923)# JRMAP (923) 

BYTE MAP (2, 923), LIST, AMPM, TIM (8)# DAT (9) 
EQUIVALENCE (MAP, JRMAP) 


201 



CALL ASSIGNd, ' JRMAP ' > 

READ ( 1 ) LIST, TIM, AP, DAT 
READ ( 1 ) JRMAP 
READ ( 1 ) JR I MAG 

TYPE 201, LIST# ( TIM ( I ) # 1 = 1# 5), AMPM# DAT 

FORMAT ( ' 'Al# '-LIST LOAD CREATED AT '5A1.A1. 'M ON '9A1 ) 
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1 




**+ JR 

SOFTWARE 

POST LAUNCHi PATCHED *** 


2 



; 

** WLD 

'FLYBACK 

' DISABLED 


3 

A 




** WLD 

STEPPED 

AT UNIFORM 100-HZ RATE 


H- 

5 



; MONITOR: EXPERIMENT E 

XECUTION CONTROL 


& 



; 

ENTRY POINTS: 

MGNITR = START NEW EXPERIMENT 


7 



/ 



MONITT = ACT ON NEW 5/C DATA FROM SCP 


8 



; 



POWRUP = POWER UP AND INITIALIZE 


9 



; 



FWRQFF = POWER DOWN ENTIRE INSTRUMENT 


10 



* ; 



HALT = STOP EXPERIMENT IN PROGRESS 


11 




. =0 




12 
4 "3 

0 

140260 


JMP 

POWRUF 

; POWER UP AND INITIALIZE INSTRUMENT 


1 J3 

14 




; INTERRUPT VECTORS 


15 

1 

140007 


JMP 

LEVEL 1 

; POWER FAIL INTERRUPT 


16 

2 

133000 


HLT 


DMA INTERRUPT 


17 

3 

170102 


JST 

LEVELS 

; HOUSEKEEPING INTERRUPTS 


1 8 
19 




; WORD 

4 15 A RESTART LOCATION AFTER LOADS OR HALTS 


£0 

4 

133400 


CIL 


; CLEAR INTR 3 


21 

5 

160316 


JST 

TSTD 

; TEST DAY FOR RESTART 


22 

6 

140265 


JMP 

PWUP2 

RESTART 


23 



; 





24 

7 

137002 

LEVEL! 

LSA 2 




25 

10 

035777 


DMSS 

PFFLAG 

; DECREMENT FOWER FAIL FLAG 


26 

11 

140327 


JMP 

ALLGFF 

; TURN OFF MOTORS 


27 



; 





28 

12 

140012 

HALT: 

JMF . 

; HALT 

CURRENT EXPERIMENT 


£9 

13 

161612 


JST 

DTIM 

; HALT GATES/ JR TM CTRL) BET OFF 


30 

14 

133400 


CIL 



o o 

3 4 

15 

061727 


L JO 

MSGS 

; OUTPUT 'END OF EXPT' MSG 

■n pa 

32 

16 

171353 


JST 

UGMSG 

; 

T) ^ 

33 

17 

140012 


JMP 

HALT 

; RETURN 

o 22 

34 







o > 

35 

20 

137003 

MON IT I 

: LSA 3 

; MONITOR ENTRY POINT FROM SCI CMD 

30 F“ 

36 

21 

125775 


S INI- 

TEMPI 

; SAVE INDEX TEMPORARILY 

o "0 

37 

22 

045700 


LACS 

SCI 

; SEE IF ITS INLINE PROCESS 


38 

23 

021732 


ORR 

SMASH 

; IE: BITS 11-10 ARE SET 


39 

24 

132400 


NOT 



fSy jffi 

40 

' 25 

130000 


TAZ 




41 

26 

140071 


JMP 

INLINE 

; YES - DO OPERATION 

*% IP 

42 

27 

055777 


LAN! 

B5YGN 

; SEE IF IS ALL RIGHT TO PROCESS COMMAND 


43 

30 

130400 


TAN 


; NOT IF BUSY = NEG (POWERUP OR WLD FAIL) 


44 

31 

151265 


JMP 

5AV5A 

; RESTORE REGISTERS AND RETURN 


45 

32 

045700 


LACS 

SCI 

; BUSY IS POS) GO AHEAD 


46 

33 

021730 


ORR 

SGNBIT 

; SET BIT 16 = 1 (CMD PROCESSED) 


47 

34 

115700 


SACS 

SCI 

; REPLACE SCI 


48 

35 

134012 


ASR 

10 . 

; NOT INLINE) NEW EXPERIMENT REQUESTED 


49 

36 

011715 


AND 

THREE 

; EITS 11-12 DEFINE ACTION 


£0 

37 

160044 


JST 

INJMP 

; JUMP TO APPROPRIATE ROUTINE 


51 



; >f: >f: >f: if: >f: >k + 



52 

40 

140125 


JMP 

NEW 

; 00 = NEW EXPERIMENT VECTOR 


53 

4 1 

155663 


JMP 

DVISE 

; 01 = DOOR / SLIT/ POLR COMMAND TO JR 


54 

42 

140124 


JMF 

XFLARE 

; 10 = FLARE EXPERIMENT FLAG 


55 

43 

140051 


JMP 

OTHER 

; 11 = OTHER OPERATION 


56 






57 

44 

142000 

INJMP: 

JMP I 0 
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1 

45 

115774 

SAC5 

TEMF 

SAVES WORDS 

2 

46 

045700 

LACS 

SCI ; 

PASS (SCI! IN AC REG 

3 

47 

075774 

LINS 

TEMP ; 

CREATE INDEXED JUMP 

4 

C 

50 

140044 

JMP 

IN JMP 


3 

6 

51 

134004 

OTHER: ASR 4 

; SPECIAL 

OPERATION AC= ( SC I ) 

7 

52 

011715 

AND 

THREE J 

CMD TYPE IS BITS 10-5 

8 

53 

160044 

J5T 

IN JMP ; 

INDEXED JUMP TO TYPE 

9 



: if; :fc 


10 

54 

140514 

JMP 

JRLOAD ; 

JR LOAD UPCOMING, WAIT 

11 

55 

141753 

JMP 

ENBWT ; 

WAIT 

12 

56 

140060 

JMP 

CPUDMP ; 

MEMORY DUMP 

13 

57 

i40057 

JMP 

. +0 


14 





15 






16 

60 

160012 

CPUDMP: JST HALT 


17 

61 

137003 

L5A 

3 


18 

62 

045700 

LACS 

SCI 

RENEW INSTRUCTION 

19 

63 

011715 

AND 

THREE ; 

GET SEGMENT DATA 

20 

64 

134412 

ASL 

10. 

MOVE TO POSITION 

21 

65 

137002 

LSA 

2 


22 

66 

115701 

SACS 

AB ; 

SET ADDRESS REG. 

23 

67 

171151 

•JST 

MEMDNP ; 

FERPORM DUMP 

24 

70 

140070 

JMP 

. +0 

WHAT NOW? 

25 



/ 



26 

71 

045700 

inline: lacs sci ; 

INLINE OPERATION - DON'T RESET PHANTOM 

27 

72 

021730 

ORR 

SGNEIT ; 

SET COMMAND PROCESSED FLAG 

28 

73 

115700 

SACS 

SCI ; 


29 

74 

134404 

ASL 4 



30 

75 

130400 

TAN 



31 

76 

151501 

JMP 

INLHTR ; 

DO IN LINE HEATER SWITCHING 

32 

77 

134405 

ASL 5 



33 

100 

134015 

ASR 

13. ; 

BITS 9-5 INDICATE OPERATION 

34 

101 

160044 

JST 

IN JMP ; 

RESTORE INDEX j AC, SA 

35 





36 

102 

140111 

JMP 

FLFLAG ; 

SET FLARE FLAG 700X X=0, 2 

37 

103 

140116 

JMP 

ALIST ; 

SELECT LIST A 

38 

104 

140120 

JMP 

ELIST ; 

SELECT LI5T B 

39 

103 

145427 

JMP 

FIXWL ; 

CHANGE WLB P05N COUNTER . 

40 

106 

061747 

LIO 

0377 

DEEUG AID TO DISAELE INTRPT5 

41 

107 

136520 

EX I 

MASK 


42 

110 

140122 

JMP 

INRTN ; 

RETURN AFTER MASKING 

43 






44 

111 

134414 

FLFI.AG: ASL 12. 

; INLINE 

FLARE FLAG AC=(5CI) 

45 

112 

025733 

ORRS 

FLAG 


46 

113 

021730 

ORR 

SGNEIT 


47 

114 

115733 

SACS 

FLAG 


48 

115 

140122 

JMP 

INRTN 


49 



; 



50 

116 

041735 

ALIST : LAC D16 

; SET POINTER OFFSET TO NEW LIST 

51 

117 

140121 

JMP 

ELIST+1 


52 



; 


' 

53 

120 

041736 

BLI5T : LAC D32 

; SET ADDRESS INCREMENT TO 40 OCTAL 

54 

121 

114060 

SACS 

LIST 


55 

122 

075775 

INRTN : LINS TEMPI . 

RESTORE INDEX REGISTER 

56 

123 

151265 

JMP 

5AV5A / 

RESTORE REST OF REGISTERS AND RETURN 

57 



; 
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1 

124 

041744 

XFLARE: 

LAC 017 

; DEFAULT 

TO SEQUENCE 15. 

2 

125 

011744 

NEW- AND 017 

;SCI CMC 

ENTRY TO GONEW AC=tSCI> 

3 

126 

004060 

NEWFL : 

ADDS LIST 

ADDING THE VALUE FOR A/B LIST 

4 

127 

115703 

GOMEL' : 

SACS OLS 

;NEW INDEX TO VECTOR TABLE SET 

5 

130 

040071 


LAC 

INLINE ; 

=045700 

6 

131 

115702 


SACS 

LPC ; 

LIST PROG CNTR IS FLAGGED 

7 

132 

041713 


LAC 

ONE ; 

RESTORE EXPT NO. CHANGE 

8 

133 

115677 


SACS 

EXPABV 


9 



; BEVPON 


; BRING DEVICE POWER UP FOR EXPT 5EQ . 

IB 

134 

133400 


CIL 



11 

135 

136755 


exi 

ECTR 

CLEAR EVENT COUNT 

12 

136 

061740 


LID 

0177 


13 

137 

136610 


EX I 

RXLD 

START RASTER AT ELECT NULL 

14 

140 

136614 


EX I 

RYLD 


15 

141 

041716 


LAC 

FOUR ; 

POWER RASTER UP 

16 

142 

164232 


J5T 

RWENAE ; 

OUTER GIMBAL 

17 

143 

137002 


L5A 

2 


18 

144 

045631 


LACS 

OS 15 3 

128 MS WAIT 

19 

145 

170360 


J5T 

UWTX 


2® 

146 

041714 


LAC 

TWO 


21 

147 

164232 


J5T 

RWENAE ; 

INNER GIMBAL 

22 

150 

137002 


LSA 

2 


23 

151 

045634 


LACS 

03777 


24 

152 

170360 


J5T 

UWTX 

98 MS WAIT 

25 



/ 




26 

153 

136761 


EX I 

GBRN 

’A’ PLATE :: REVERSAL FOUND 11/79 

27 

154 

045623 


LACS 

D1137 


28 

155 

170360 


J5T 

UWTX 


29 

156 

045735 


LACS 

PRREFC 


3fl 

157 

130000 


TAZ 



31 

160 

140162 


JMP 

MONITP 


32 

151 

170706 


J5T 

GETPRF ; 

GET PLATE REF POSN 

33 



; 




34 



MQNITR: 

; ENTRY POINT AFTER SCI ’NEW EXPMT OR AFTER 

35 




A ’START’ » ALSO 

AT END OF ALL EXPERIMENTS. 

36 

162 

137003 


L5A 3 



37 

163 

045702 


LACS 

LPC ; 

TEST WAIT/GO BIT IN LIST PROGRAM CNTR 

38 

164 

130400 


TAN 



39 

165 

140170 


JMP 

15 

NOT SET 

4B 

166 

161632 


J5T 

DEVOFF ; 

UNPOWER RASTER AND ROTATING PLATE 

41 

167 

140307 


JMP 

WAIT ; 

DO WAIT 

42 



; 




43 

170 

134401 

15: 

A5L 

1 


44 

171 

130400 


TAN 

; 

T5T IF LPC FLAGGED BY SC I /START 

45 

172 

140205 


JMP 

NXTCMI ; 

CONTINUATION OF O.L. SEGMENT 

46 

173 

045703 


LACS 

0L5 ; 

SCI OR START WAS LAST CALL 

47 

174 

1 30400 


TAN 

; 

TE5T IF OBSERVING LIST SEGMENT INDEX IS VALID 

48 

175 

140177 


JMP 

. +2 ; 

NOT NEGATIVE, OK 

49 

176 

140253 


JMP 

3ADM0D ; 

ILLEGAL 

5B 

177 

001733 


ADD 

M4BD 

NEEDS TO EE . LT . 48 

51 

200 

130400 


r an 



52 

201 

140253 


JMP 

BADMOD ; 

ILLEGAL 

53 

202 

075703 


LINS 

0L5 ; 

LOAD OBSERVING LIST 5EGMENT= VECTOR TABLE INDE 

54 

203 

046000 


LACIS 

VECTOR ; 

LOAD NEW LIST PROGRAM COUNTER 

55 

204 

115702 


SACS 

LPC ; 

LPC IS LIST PROGRAM COUNTER 

56 



; 




57 

205 

045702 

NXTCMI : 

LACS LPC ; 

NEXT POINTER TO COMMAND MODE IN5TR 
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1 

206 

001734 

ABB 

M1616 ; TEST FOR UPPER LIMIT 

2 

207 

1 30408 

TAN 

.: MUST EE . LT . END OP PARAM TABLE 

3 

210 

140253 

JMP 

BABMOD ; ILLEGAL ADDRESS 

4 

211 

045702 

LAC 5 

LPC 

5 

212 

021726 

ORR 

O150K 

6 



; *** 


7 

213 

171403 

J5T 

5NBMSG ; SEND COMMAND MODE MESSAGE 

8 



; 


9 

214 

137003 

L5A 

3 

10 

215 

075702 

LINS 

LFC ; GET INDEX TO DBS. LI5T 

11 

216 

066061 

LIOSI 0B5L5T .: UPDATE IN5TRC . REG FROM 0E5. LIST 

12 

217 

105701 

SIOS- 

LIR 

13 

220 

171353 

J5T 

U5M5G ; SEND THE CMD IN5TRC 

14 

221 

137003 

L5A 

3 

15 

222 

045701 

LACS 

LIR 

16 

223 

011742 

ANB 

01TZ17 ; SAVE SION AND LOW 4 BITS 

17 

224 

115776 

SACS 

TEMP J ; MASKED INSTRUCTION 

18 

225 

075776 

LINS 

TEMPJ ; USE AS INDEX 

19 

226 

011730 

ANB 

50NBIT ; SAVE SIGN BIT FOR WAIT FLAG 

20 

227 

025702 

QRRS 

LPC 

21 

230 

001 7i 3 

ADD 

ONE ; SET WAIT/ SO AND INCnEHENT LIST PC 

22 

231 

115702 

5ACS 

LRC 

23 



; 


24 

232 

142233 

JMF'I 

. +1 

25 





26 



; JUMP TABLE 

16 POSSIBLE ENTRYS NOP COMMAND INSTRUCTIONS ARE ERRORS 

27 



/ 


28 

233 

150000 

JMP 

EXECUT ; 10 BIT PARAM LI5T INDEX 

29 

234 

140466 

JMP 

START ; LIKE SCI CMD. C BIT / 4 LIST INDX / 0001 

30 

235 

1 40476 

JMP 

GOTOO ; 5 BIT REL OFFSET / 0010 

31 

236 

141664 

JMF 

COMPAA ; SKIP IF A/IMED .GE. B 

32 

237 

141674 

JMP 

ADDD ; IHEB BIT / 2 5-BIT FIELDS / 0100 

33 

240 

150041 

JMP 

5U3B ; IMED BIT / 2 5-BIT FIELDS / 0101 

34 

241 

140511 

JMP 

MOVEE ; IMED BIT / 2 5-EIT FIELDS / 0110 

35 

242 

141703 

JMP 

CMPR ; SKIP IF A/IMED . LE . B 

36 

243 

140162 

JMP 

MC'NITR ; UNUSED BITS ARE A MESSAGE 

37 

24 4 

150340 

JMP 

MITIM ; MINOR FR CLK 5INCE JR ON OR LOADED 

38 

24 5 

151512 

JMP 

SIZE 

39 

246 

150044 

JMP 

I AND ; EIT AND FUNCTION 

40 

247 

1 34000 

NOP 

; FORMERLY "ADD OVFL EIT TO ’B’ ” 

41 

250 

134000 

NOP 


42 

251 

1 34C00 

NOP 


43 

25 2 

1 34C80 

NOP 


44 



; 


45 



; END OF TABLE 

46 



; 


47 

25 3 

171425 

BABMOD : J5T 

UERROR ; ILLEGAL CMD MODE DR LIST ADDRESS 

48 

25 4 

140307 

JMP 

WAIT 

49 

255 

171455 

EADLST : J5T 

UERROR ; ILLEGAL PARAMETER WORD 

50 

256 

137003 

L5A 

3 

51 

257 

1402O5 

JMP 

NXTCMI ; TRY NEXT CMD 

52 



; 


53 

260 

136561 

FOWRUp: EX I 

5MN ; POWER UP 5T AT MON. — MAY EE OFF 

54 



; If:** 


55 

261 

165073 

JST 

GTEUSY ; SET EUSY=NEG SO SCI CMDS WON’T DISRUPT 

56 



; *** 

POUER-UP 

57 

262 

170365 

J5T 

UWTB 


c: 

> o, 
cr fi fi 

— j j 
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1 

263 

136713 


exi 

TM2N 

; POWER BUS 2 

2 

• 264 

136717 


EX I 

TM3N 


3 

265 

161612 

FWUP2 : 

J5T DTIM 

; SET CLOCKS; TM 

4 

266 

161632 


J5T 

DEVOFF 

; SET RASTER PWR 

5 

267 

136575 


EX I 

GRDN 

; SET DAY/NIT OVERRIDE LATCH 

6 

7 

270 

170365 


JST 

UWTB 

; 8 MSEC 

8 

271 

136645 


EX I 

WAVN 

.: ENABLE OLD 

9 

272 

170365 


JST 

UWTB 


10 

27 3 

165103 


JST 

5MWLB 

; SET COUNTER = WLD P05N 

11 

2 74 

132000 


CAC 



12 

275 

137002 


LSA 2 



13 

276 

115637 


SACS 

CNTOBC 

; RESET OBC 'OK-' INDICATOR 

14 

277 

137003 


LSA 

3 

; RESTART AFTER JR LOAD 

15 

300 

115771 


SACS 

ACONFG 

; SET ACONFG IN DMA EUFFER 

16 

301 

115773 


SACS 

MICLK 

; RESET MINOR FRAME CLOCK 

17 

302 

061711 


LIO 

UNMSK 

; UNMASK MANY INTERRUPTS 

18 

303 

136520 


EX I 

MASK 

; FLAR) MI) MI/4) G3) G2 

19 

304 

041730 


LAC 

SGNBIT 


20 

305 

115702 


SACS 

LPC 

; SET WAIT/GO TO 'WAIT' 

21 

306 

161641 


JST 

B5YCLR 

; SET BUSY TO + TO ALLOW SCI PROCESSING 

22 

307 

160012 

WAIT : 

JST HALT 

; CLEAR 

INTERRUPT VECTORS 

23 

310 

055677 


LANS 

HEATWD 


24 

311 

130400 


TAN 



25 

312 

171463 


JST 

HEATR 

; SERVICE HEATER 

26 

313 

140313 


JMF 

. +0 

' 

27 



; 




28 



; DAY/NIGHT TRANSITION' 

NOP IF TO DAY) POWER OFF IF TO NIGHT 

29 



; 




30 



; 




31 

314 

160316 

D2N : 

JST 

T5TD 

; TEST DAY/NIGHT LEVEL 

32 

315 

140260 


JMP 

POWRUP 


33 



; *** 




34 

316 

140316 

TSTD: 

JMP . 



35 

317 

061737 


LIO 

D62 

.: GET DAY NIGHT STATUS 

36 

320 

170051 


JST 

USMR 

; INTERROGATE STATUS MONITR 

37 

321 

134407 


ASL 

7 

; BIT 9 IS LEVEL 

38 

322 

130400 


TAN 


; DAY OR NIGHT? 

39 

323 

151175 


JMP 

TNLP 

; T5T WLD POWER 

40 

324 

140316 


JMP 

TSTD 


41 



; 




42 

325 

160012 

EXGFF: 

JST 

HALT 

; TURN OFF EVERYTHING AT NIGHT 

43 

326 

170371 


JST 

UWTONE ; 

**:K2ND 2-SEC. WAIT REMOVED 

44 

327 

161612 

ALLOFF 

: JST DTIM 

; TURN OFF EVERYTHING 

45 

330 

161632 


JST 

DEVOFF 


46 

331 

133400 


CIL 



47 

332 

140310 


JMP 

WAIT+1 


48 



; 




49 



; 




50 



; BOOT 

STRAP LOADER: ALTERNATE LOAD/DUMP ROUTINE 

51 



; 

ENTRY POINTS: BOOT = FROM L3 POLLING LIST AFTER 5/C COMMANDS 

52 






RT, MPR 

53 



; 



S4) BOOT 

54 



; 

ARGUMENTS: BOOT 

IS OPERATED BY REPEATEDLY SENDING THE FOLLOWING 

55 



; 


S/C COMMAND SEQUENCE: 

56 



; 




57 



; 



RT) S3) DRLD+X 



LONCH 

*>(■* 

JUNIOR 

A55EMBL 


08-AFR 

-35 1 2 : 82 FAl^E 6 

1 






RT 1 S3 1 WAVI+Y 

2 






RT.-JRR 

3 

4 

c 



' 


WHERE X 

— 10 - =.FT MS 3 BI T c - OP — y 

6 

7 



; 



— 20 — SET LS S BITS OF AE — V 

8 

0 



- 



= 40 = SET SM 3 BITS OF DATA = Y 

10 






= 100 = SET LS S BITS OF DATA = Y AND 

11 



; 



STORE DATA IN ADDRESS SPECIFIED 

12 



; 



IN AB> THEN INCREMENT AB 

13 



; 




14 



; 



= 200 = BEGIN DUMP AT ADDRESS IN AE. 

15 



; 



DUMP WILL END AT LOCATION 7777. 

16 



; 




17 



; NOTE 

: MP MUST 

BE RESET TO USE BOOT 

18 



; 




19 

333 

061747 

BOOT s'* : 

LIO 0377 



20 

234 

1365 20 


EMI 

MASK 

; DISABLE INTERRUPTS 

21 

335 

136713 


exi 

TM2N 

; ENABLE BUS 2 AND WAV JUST IN CASE 

22 

336 

136717 


exi 

TM3N 


23 

337 

136645 


EX 1 

WA.VN 


24 

340 

133400 


CIL 



25 



; **>}< 




2 b 

34 1 

060352 

EOOT: 

LIO CLEAR+7 

; SET PATH TO 241 

27 



; 




28 

342 

1 36721 


EX I 

321 


29 

343 

170401 

CLEAR : 

J5T GETS 

; SET L 

S 8 BITS OF WLD TO ZERO 

30 

34-4 

136642 


EX I 

SLUR 


31 

345 

111710 


SAC 

TEMPB 


32 

34-6 

061710 


LIO 

TEMFE 


33 

347 

136654 


EX I 

WAVI 


34 

350 

041711 


LAC 

IJNMSK 

; WAIT S M5 FOR WAVI 

35 

351 

170360 


JST 

UWTX 

; 5A RETURNED = 2 

36 

352 

136641 


EX I 

SLWF 

; RESET FWD FOR WAVI 

37 

35 3 

133000 


HLT 


; WAIT FOR JRR ==- INTERRUPTS NEED TO EE MANAGED 

38 



; 




39 

354 

060432 


LIO 

D47 

; GET PATH FROM SM 

40 

355 

170051 


JST 

U5MR 

; 

41 

35 6 

134410 


A5L 

B. 

; LOOK AT ONLY EITS 8-5 

42 

357 

134014 


A5R 

12 . 


43 



; 




44 

360 

130000 


TA2 


; PATH = 10 ? 

45 

361 

140401 


JMP 

ABHI 

; MS B EITS OF AB 

46 

362 

001722 


ADD 

Ml 


47 

363 

130000 


TA2 


; PATH = 20 ? 

48 

364 

140406 


JMP 

ABLO 

; LS S BITS OF AE 

49 

365 

001722 


ADD 

Ml 


50 

366 

1 30000 


TAZ 


; PATH = 40 ? 

51 

367 

140412 


JMP 

DAT AHI 

; MS S EITS OF DATA 

52 

370 

001723 


ADD 

MS 


53 

371 

130000 


TAZ 


; PATH - 100 ? 

54 

372 

140416 


JMP 

DATALO 

; LS B EITS OF DATA / STORE 

55 

373 

001724 


ADD 

M4 


56 

374 

130000 


TAZ 


; PATH = 200 ? 

57 

375 

140425 


JMP 

DUMP 
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1 

2 

376 

061747 

LIO 

0377 

; PATH UNDEFINED 

3 

377 

136721 

EX I 

321 

; SET PATH = 377 

4 

400 

140343 

JMP 

CLEAR 

; CLEAR WLB AND WAIT 

b 

401 

170401 

ABHIt J5T GETS 

; GET MS 

4 EITS OF AB 

7 

402 

134414 

A5L 

12. 

; MASK AND MOVE TO MS HALF 

8 

403 

134004 

A SR 

4 


9 

404 

115701 

SAC 5 

AB 

; STORE 

10 

405 

140341 

JMP 

BOOT 

; NEXT OPERATION 

15 

406 

170401 

AELG ; JET GETS 

; GET L 

5 8 EITS OF AB 

13 

407 

025701 

ORRS 

AB 

.: INSERT INTO AB 

14 

410 

115701 

SAC 4 

AB 


15 

411 

140341 

JMP 

BOOT 


it> 



; 



17 

412 

170401 

BAT AHI : J5T GET3 

; GET MS 8 EITS OF DATA 

18 

413 

134410 

A5L 

8. 

; MOVE TO MS HALF 

19 

414 

111707 

SAC 

DATA 

; STORE 

20 

415 

140341 

JMP 

BOOT 


21 



; 



22 

416 

170401 

BATALO: J5T GETS 

.: GET LS 8 BITS OF DATA 

53 

417 

021707 

ORR 

DATA 

; INSERT INTO DATA 

24 

420 

111707 

SAC 

DATA 


25 

421 

060433 

LIO 

SACDLR 

; LOAD SACS INSTRUCTION 

2 6 

422 

17O410 

J5T 

ASSMBL 

; ASSEMBLE AND EXECUTE INSTRUCTION 

27 

423 

170425 

jsr 

INCAB 

; STORE DATA) THEN INCREMENT AB 

2B 

424 

140341 

JMP 

BOOT 


29 



; 



30 

425 

i33400 

BUMP : CIL 


; ENABLE L3 INTERRUPTS 

31 

426 

061711 

LIO 

UNMSK 


35 

457 

i 36520 

EMI 

n#VEK 

; i t. i HAbk wEGlSTr.R 

33 

430 

171151 

J5T 

MEMBMF 

; USE STANDARD DUMP FORMAT 

34 

431 

140333 

JMP 

EOOTX 


35 



; 



36 

432 

000057 

B47: 47. 



37 

433 

114000 

SACDLR: SACS 0 



38 



; 



39 



; GET ARGUMENTS FROM COMMAND INSTRUCTION FIELDS A) E 

40 



; A DATA 

IS RETURNED IN 10 REG) ' TEMP J ' 

41 



; E INDEX 

IS RETURNED IN 'IN' OR ACC REGS 

42 



; 



43 

434 

075702 

FI ELI ' LINS 

LPC 

; GET IMMED INDEX 

44 

435 

066061 

LIOSI 

OBSLST 

; LD IMMED DATA 

45 

436 

137401 

BIN 


: INCREMENT PC VALUE 

46 

437 

125702 

SINS 

LPC 


47 



; 



48 

440 

045701 

FIEL2 : LACS 

LIR 

; GET INDEX OF 'B' DATA 

49 

441 

134004 

ASR 

4 


50 

442 

011745 

AND 

037 


51 

443 

001731 

ADD 

RWEUF 

; ADD SAME BASE FOR READABLE MEMORY 

52 

444 

115776 

SACS 

TEMP J 

; SAVE 'E' INDEX VALUE FOR LATER USE 

53 

445 

075776 

LINS 

TEMPI 

; INDEX SET FOR 'B ! DATA 

54 

446 

105776 

BIOS 

TEMPJ 

;PAS5 'A' INDEX 

55 

44 7 

140447 

FIELDS: JMP . +0 

; FIND INDEXES PROM INSTRUCTION INDEX FIELDS 

56 

450 

045701 

LACS 

LIR 

; FIRST TEST C FIELD IN INSTRUCTION 

57 

451 

134401 

ASL 

1 
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1 

452 

071712 

LIN 

ZERO 


2 

453 

130400 

TAN 


; SKIP IF 'C' IS SET 

3 

45 4 

071713 

LIN 

ONE 


4 

455 

134012 

ASR 

10. 

.: ALIGN BITS FOR 'A' INDEX FIELD 

5 

45 6 

011745 

AND 

037 

.: MASK REMAINING BITS 

6 

457 

142460 

JMPI 

. +1 

; ACTUAL TEST OF ' C > EIT 

7 

460 

140434 

JMP 

FIELI 

;’C> WAS SET; USE IMMED. DATA 

8 

461 

001731 

ADD 

RWEUF 

.: ADD BASE OF RD/WRT MEMORY 

9 

462 

115776 

SAC f 

TEMFJ 

; SAVE FOR INDEX 

10 

463 

075776 

LINS 

TEMPJ 


11 

464 

066000 

LI05I 

6000 

:'A» DATA FROM SEG 3 

12 

465 

140440 

JMP 

FIEL2 


1 3 

14 

466 

045701 

START: LAC* LIR 

; REFRESH 

THE INSTRUCTION 

13 

467 

071713 

LIN 

ONE 


lb 

470 

134407 

ASL 

7 

; SHIFT 'C ! FLAG EIT TO SIGN P05N 

17 

471 

130400 

TAN 



18 

472 

071712 

LIN 

ZERO 

; INDEX 0 IF NOT C LIST EXPMT 

19 

473 

134013 

ASR 

11 . 

; SHIFT LIST INDEX TO POSITION 

20 

474 

011744 

AND 

017 

; MASK 4 EIT LIST INDEX 

21 

475 

142126 

JMPI 

NEWFL 

; NORMAL 1=0; C 1 = 1 

22 



; 



53 






24 

476 

045701 

GOTOO-- LA.C* LIR 

; REFRESH 

INSTRUCTION IN ACCUM 

25 

477 

134405 

ASL 

5 . 

; TEST IF JUMP IS BACKWARD 

26 

500 

130400 

TAN 



27 

501 

140505 

JMP 

1* 


28 

502 

134011 

ASR 

9. 

; EXTEND SIGN EIT OF 2'5 COMPL 0FF5ET 

29 

503 

021741 

ORR 

0177600 


30 

504 

140506 

JMP 

GON 

; PROCEED TO UPDATE POINTER 

31 

505 

134011 

1*: ASR 

<? . 

.: FORWARD JUMP FOUND 

32 

506 

005702 

GON : ADD* LFC 

; SECONDARY ENTRY 

33 

507 

115702 

SAC* 

LPC 


34 

510 

140162 

JMP MONITR 

; POSSIBLE RETURN POINT 

35 



; 



36 

511 

160447 

MOVEE: T5T FIELDS 


37 

512 

106000 

SI 0*1 

6000 


38 

513 

140162 

JMP 

MONITR 


39 



; 



40 

514 

161612 

JRLOAD : JST DTIM 


41 

515 

061747 

LIO 

0377 


42 

516 

136520 

EMI 

MASK 

; MASK OUT CLOCK INTERRUPTS 

43 

517 

133000 

HLT 



44 



; 



45 

520 

0404 34 

SETIUp: LAC FIELi 

; MIN MUST BE <75702 

46 

521 

115736 

SAC* 

MINIC 

; PRESET MIN COUNT 

47 

522 

045733 

LAC* 

FLAG 


48 

523 

011725 

AND 

047777 

; RESET SUPER 6 FLARE EIT 

49 

524 

115733 

SAC* 

FLAG 


50 

525 

132000 

CAC 



51 

526 

115743 

SACS 

MAMIC 

; PRESET MAX COUNT 

52 

527 

115746 

SACS 

MAMBV 

; BLUE VELOC . 

53 

530 

115752 

SAC* 

MAMRV 

; RED VELOC . 

54 

531 

115756 

SAC* 

OFFTTL 

; SERVO OFFSET TOTAL 

55 



; 



56 

532 

065704 

LIO* 

OL 

; GET SEQUENCE CONTROL WORD 

57 

533 

137002 

LSA 

2 
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1 

H 

534 

115647 

; 

SAC I- 

DLYP 

; CLEAR DEVICE DELAYS ■ 

3 

A 

5 35 

115650 


SACS 

5PC 1 

; 

H- 

s 




; SETUP COUNTERS 

AND INDEXES: ' 

6 

536 

115774 


SACS 

COUNT 

; ASCENDING SEQUENCE INDEX 

7 

8 
9 

5 37 

115766 


SACS 

SCOUNT 

; ASCENDING CONTRL SLOT COUNTER 

540 

115765 

CTLR5T : 

SACS 

DIRECT 

; ASCENDING CONTROL WRD INDEX i 

10 

541 

105775 


5I0S 

CHAN 

; RESET SCRATCH SCO. WORD 

11 

542 

045775 


LACS 

CHAN 

; TEST IF CONTROL BLOCK INDEX... ; 

12 






! 

13 

543 

011715 

CTLCHK : 

AND THREE 

; MATCHES SEQUENCE INDEX 

14 

544 

115763 


SACS 

OLD 

; COMPARISON BITS ; 

15 

545 

055763 


LANS 

OLD 


16 

546 

005774 


ADDS 

COUNT 


17 

547 

1 30000 


TAZ 


; SKIP WHEN NOT MATCHED 

18 

550 

140573 


JMP 

CTLFND 

; INDEX MATCHED. .. TRANSFER JST INSTR. ! 

19 

551 

055765 


LANS 

DIRECT 


20 

552 

001714 


ADD 

TWO 


21 

553 

130400 


TAN 


; TEST IF CHECK IS COMPLETE 02) 

22 

554 

140557 


JMP 

CTLNXT 

; NOT YET SO MOVE POINTERS 

23 

555 

171425 


J5T 

UERROR 

; SEND ERROR MESSAGE TO TM 

24 

556 

140162 


JMP 

MONITR 

; HOLD TEMPORARY INSTRUCTION 1 

25 



; 



1 

26 

557 

045765 

CTLNXT : 

LACS 

DIRECT 

; INCREMENT CONTROL WORD TABLE INDEX 

27 

560 

001713 


ADD 

ONE 


28 

561 

115765 


SACS 

DIRECT 


29 

562 

045775 


LACS 

CHAN 

; SHIFT SCRATCH SEQUENCE WORD 

30 

563 

134003 


ASR 

3 

; RIGHT BY 3 

31 

564 

115775 


SACS 

CHAN 


32 

565 

140543 


JMP 

CTLCHK 


33 



; 



, 

34 

566 

045774 

CTLMOR : 

LACS 

COUNT 

; INCREMENT SEQUENCE INDEX 

35 

567 

001713 


ADD 

ONE 

• 

36 

570 

115774 


SACS 

COUNT 

i 

37 

571 

132000 


CAC 


; CLEAR TABLE INDEX 

38 

572 

140540 


JMP 

CTLRST 

; RESET CTRL WD TNDX * SCRTCH 5E0 WD ; 

39 

40 

573 

075765 

CTLFND : 

LINS 

DIRECT 


41 

574 

042634 


LAC I 

CTLINS 

; LOAD INDEXED CONTROL JUMP 

42 

575 

075766 


LINS 

SCOUNT 


43 

576 

117640 


5ACSI 

CTL5LT 

; SET PROPER CONTROL 5L0T 

44 

577 

137401 


BIN 


; INCREMENT SLOT COUNTER 

45 

600 

125766 


SINS 

SCOUNT 


46 

601 

045775 


LACS 

CHAN 

; TEST IF CALIBRATION RUNS 

47 

602 

135003 


RSR 

3 

; ... AFTER LOOP JUST SET ' 

48 

603 

1 30400 


TAN 



49 

604 

140611 


JMP 

NOTCAL 

; C AL . BIT NOT SET 

50 

605 

040640 


LAC 

CTLCAL 

; C AL . FLAG SET 

51 

606 

117640 


5ACSI 

CTL5LT 


52 

607 

137401 


BIN 


; INCREMENT SLOT COUNTER 

53 

610 

125766 


SINS 

SCOUNT 

; UPDATE LOCATION 

54 



; 




55 

611 

055774 

.NOTCAL: 

LANS 

COUNT 

;* TEST IF END OF PROGRAMMABLE SLOTS 

66 

612 

001714 


ADD 

TWO 


57 

613 

130400 


TAN 


; WAS IT ) 2 ? 
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1 

614 

140566 


JMP 

CTLMQR 

NO 

a 

615 

040641 


LAC 

CTLTAC 

; YES . . . SET TACH SERVO CALL 

3 

616 

117640 


SAC 1 5 

CTL5LT 


4 

617 

137401 


BIN 



5 

620 

125766 


SINS 

5C0UNT 


6 

621 

055766 


LANS 

5CQUNT 

; TEST IF ALL SLOTS ARE FILLED ( >5 

7 

622 

001743 


ABU 

05 


8 

623 

1 30400 


TAN 



9 

624 

140630 


JMP 

DFALT 

; NOT DONE FILLING CONTROL SLOTS 

10 

625 

040642 

F IL5LT 

LAC CTLOTR 

; *5ET OUTER LOOP CONTROL CALL 

11 

626 

117640 


SAC 5 1 

CTLSLT 


12 

627 

140643 


JKP 

SETOTS 

; BONE SETTING CONTROL SLOTS 

13 



; 




14 

630 

040640 

DFALT : 

LAC CTLCAL 

; DEFAULT CALIBRATION 

15 

631 

117640 


5ACSI 

CTLSLT 


16 

632 

137401 


BIN 



17 

633 

140625 


JMP 

FILSLT 


18 



; 




19 

634 

161434 

CTLINS: 

JST BW5TP 

; WAVELENGTH CONTROL LOOP CALL 

20 

635 

161351 


JST 

RYCTRL 

; Y RASTER CONTROL LOOP CALL 

21 

636 

161400 


JST 

RXCTRL 

; X RASTER CONTROL LOOP CALL 

22 

637 

161575 


JST 

PRCTRL 

; POLAR I METER CONTROL LOOP CALL 

23 



; 




24 

640 

161476 

CTLCAL 

JST CCALIB 


25 

641 

161160 

CTLTAC 

JST TSCTRL 


26 

642 

141304 

CTLOTR 

JMP COUTER 


27 



; 




28 

643 

137003 

SET QT5 : 

LSA 3 

; OUTER 

CONTROL LOOP SETUP 

29 

644 

132000 


CAC 



30 

645 

115770 


5ACS 

REPEAT 

; INIT REPEAT COUNT 

31 

646 

045710 


LACS 

OL+4 


32 

647 

134002 


A5R 

2 


33 

650 

137002 


LSA 

2 


34 

651 

130000 


TAZ 



35 

652 

001713 


ABB 

ONE 

; ALLOW 0 AS REPEAT PARAM. 

36 

65 3 

115703 


SACS 

PASCNT 


37 



; CALIE. SETUP FOLLOWS 


38 

654 

137003 


LSA 

3 

; CALIE. INTERVAL COUNTER SETUP 

39 

655 

045704 


LACS 

OL 


40 

65 6 

134014 


A5R 

12 . 


41 

657 

137002 


LSA 

2 


42 

660 

170250 


JST 

EXP0N2 


43 

661 

001722 


ABB 

Ml 


44 

662 

115754 


SACS 

CCYCSZ 

; <1 DISABLES CAL 

45 

663 

115756 


SACS 

CALCYC 


46 



; 




47 

664 

137003 


LSA 

3 


48 

665 

045705 


LACS 

OL+i 

; TEST IF NEW EXPMT NO. NEEDED 

49 

666 

134007 


ASR 

7 


50 

667 

011713 


AND 

ONE 

; IF BIT SET. INCR EXPMT. 

51 

670 

025677 


ORRS 

EXP ADV 


52 

671 

115677 


SACS 

EXPADV 

;THIS IS ADDED TO EXP. NO. 

53 



; 




54 



5ETUFW 


; WAVELENGTH DRIVE SETUP 

55 

672 

137002 


LSA 2 



56 

673 

045755 


LACS 

CALLAM 

; TEST IF ANY CALIE OFFSET REMAINI 

57 

674 

1 30000 


TAZ 





LONCH 



**4 

JUNIOR ASSEMBLY 

4*4 

08-AFR- 

•85 12:02 PAGE 11 

1 

b75 

1 40b77 

JMP 

. +2 

; NONE REMAINING 

2 

3 

4 

bib 

lbl47b 

J5T 

CCALIB 

; JUST GET RID OF IT AND PROCEED 

bll 

137003 

LSA 

3 


5 

700 

132000 

CAC 



6 

701 

1 157b3 

SACS 

WLSCAN 

; I NIT SCAN NO. 

7 

702 

04570b 

LACS 

OL+2 

; LD OFFSET FLG + WLB.INCR 

8 

703 

0b5707 

LIDS 

OL + 3 

; LOAD OFFSET OR LSB 

9 

704 

130400 

TAN 


; NEG MEANS OFFSET FROM LAST MAX 

10 

705 

140741 

JMP 

35 

.: POSITION COUNT SPECIFIED 

11 


; 

SETUP 

OFFSET FROM LAST LAMBDA MAX VALUE 

12 

70b 

132000 

CAC 



13 

707 

137002 

LSA 

2 


14 

710 

115771 

SACS 

MT3 


15 

711 

105772 

5I0S 

MT4 


lb 

712 

137003 

LSA 

3 


17 

713 

045710 

LACS 

OL + 4 

; LOAD AND TEST BIT 0 OF OL+4 (MLD MSE) 

18 

714 

135001 

RSR 

1 


19 

715 

130400 

TAN 



20 

71b 

140722 

JMP 

IS 

; GLOBAL HHEN = 0 

21 

717 

045741 

LACS 

MAXIWH 

; USE LOCAL VALUE WHEN - 1 

22 

720 

0b5742 

LIDS 

MAX I ML 


23 

721 

140724 

JMP 

as 


24 

722 

045721 IS: 

LACS 

MAXHI 


25 

723 

045722 

LIOS 

MAXLO 

; USE LAMDA OFFSET BASE VALUE 

2b 

724 

137002 25: 

LSA 

2 


27 

725 

115747 

SACS 

MT1 


28 

72b 

105770 

SIC'S 

MT2 


29 

727 

045772 

LACS 

MT4 

; LOAD LIST OFFSET LSB 

30 

730 

130400 

TAN 



31 

731 

140734 

JMP 

. +3 

;P05ITIVE OFFSET SPECIFIED 

32 

732 

051713 

LAN 

ONE 

; NEGATIVE OFFSET IS SPECIFIED 

33 

733 

115771 

SACS 

MT3 

; SET HIGH ORDER NEGATIVE 

34 

734 

145542 

J5T 

MDPA 


35 

735 

137002 

LSA 

2 


3b 

73 b 

045772 

LIOS 

MT 4 

; LOAD RESULTANT MLB STEP 

37 

737 

045771 

LACS 

MTS 


38 

740 

140744 

JMP 

. +4 


39 


; 




40 

741 

045710 35 : 

LACS 

OL+4 

; DIRECT POSITION SPECIFIED 

41 

742 

137002 

LSA 

2 


42 

743 

011715 

AND 

THREE 


43 

744 

105744 

SIOS 

D1JLDL0 


44 

745 

115743 

SACS 

DWLBHI 


45 

74b 

137O03 

LSA 

3 


4b 

747 

045711 

LACS 

OL+5 

; 5ET Wl_ INCREM 

47 

750 

134004 

ASR 

b 


48 

751 

011745 

AND 

037 


49 

752 

137002 

LSA 

2 


50 

753 

115740 

SACS 

DELTAL 

; SET DELTA LAMBDA 

51 

754 

144274 

JST 

nNFGS 

; SET WAVELENGTH DRIVE TO NEW POSN 

52 


; 




53 

755 

137003 

LSA 

3 


54 

75 b 

04570b 

LACS 

OL+2 

; NUMBER OF INCREMENTS 

55 

757 

045711 

LIOS 

OL+5 

; POLR STEPS / WLD STEP SIZE / PL STEP / 

5b 

7b0 

137002 

LSA 

2 


57 

7bl 

01543b 

ANDS 

077777 



TACH 


ORIGINAL PAGE 13 
OF POOR QUALITY 





LQNCH 
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JUNIOR ASSEMBLY 

*** 

03-AFI 

1 

762 

130000 

TAZ 


£ 

763 

041722 

LAC 

Mi 

3 

764 

115741 

SACS 

WLCYSZ 

4 

765 

115742 

SACS 

WLCYC 

S 

i. 

766 

105774 

SIOS 

COUNT 

o 

7 

767 

045774 

LACS 

COUNT 

3 

770 

011720 

AND 

SEVEN 

9 

771 

130000 

TAZ 


1(9 

772 

140774 

JMP 

4$ 

11 

773 

170250 

JST 

EXP0N2 

12 





13 

774 

115736 45: 

SACS 

TCYC5Z 

14 

775 

115737 

SACS 

TCYC 

15 


; 



16 

776 

045774 

LACS 

COUNT 

17 

777 

134003 

A5R 

3 

16 

1000 

011720 

AND 

SEVEN 

19 

1001 

001713 

ADD 

ONE 

20 

1002 

115734 

SACS 

GSTPSZ 

21 

1003 

045774 

LACS 

COUNT 

22 

1004 

134013 

ASR 

11. 

23 

1003 

130000 

TAZ 


24 

1006 

001722 

ADD 

Ml 

25 

1007 

115732 

SACS 

QCYCSZ 

26 

1010 

115733 

SACS 

PRC YCL 

27 


; 



23 

1011 

137003 

L5A 

3 

29 

1012 

132000 

CAC 


30 

1013 

115766 

SACS 

CXCYCL 

31 

1014 

113767 

SACS 

CYC YCL 

32 

1015 

115765 

SACS 

CPRCYC 

33 


; 



34 

1016 

045712 

LACS 

OL+6 

35 

1017 

065713 

LIOS 

OL+7 

36 

1020 

137002 

LSA 2 


37 

1021 

115774 

SACS 

COUNT 

38 

1022 

011747 

AND 

0377 

39 

1023 

130000 

TAZ 


40 

1024 

001722 

ADD 

Ml 

41 

1025 

115731 

SACS 

RYC YCL 

42 

1026 

115730 

SACS 

YCYCSZ 

43 


; 



44 

1027 

045774 

L a r a 

COUNT 

45 

1030 

134010 

ASR 

8. 

46 

1031 

011747 

AND 

0377 

47 

1032 

130000 

TAZ 


48 

1033 

001722 

ADD 

Ml 

49 

1034 

115727 

SACS 

RXCYCL 

50 

1035 

115726 

5ACS 

XCYC5Z 

51 


; 



52 

1036 

105724 

SIOS 

DELTX 

53 

1037 

045724 

LACS 

DELTX 

54 

1040 

011746 

AND 

077 

55 

1041 

115753 

SACS 

CAL5IZ 

56 





57 

1042 

137003 

LSA 3 



35 1 £ '• 02 PAGE 13 


; DISABLE WLD LOOP 
; SET t; OF INCREMENTS 


; SET TACH SERVO INTERVAL 


; ZERO SPECIFIED TURNS OFF SERVO 
; RETURNS VALUE OF NONZERO EXPQN. OF 2 
; CHOICES— 123; 64; 32; 16; 3; 4; 2 


; SET F'OLR INCREM SIZE 


; ADD ONE TO PRODUCE RANGE OF 1 - 3 
; STEP SIZE IS ALWAYS SET . GT . B 
; SET POL.R STEP QUAN 

; IF ZERO SPECIFIED, SET TO NEG; WHICH 
; DISAELES LOOP CONTROL FUNCTION 
; STEP QUANT . IS ALSO LOOP SIZE 


; SETUP OF MOSTLY RASTER ITEMS 

; set cycle counter 

; SET Y CYCLE COUNTER 
; SET F'OLR CYCLE COUNTER 

; RASTER X 5TEP QUAN / RASTER Y STEP QUAN 
; XSTEP SIZE / Y STEP 5IZE t CAL WLD OFFSET SIZE 

; SE T RAS Y STEP QUAN 

; TEST IF BISAELED 
; SET DISABLED FLAG 


; SET RAS X STEP QUAN 


; TES T IF DISABLED 
; SET DISABLED FLAG 


; SET CALIBRATION STEP SIZE 
; FROM OL+7 



LONCH 


■lot-.* JUNIOR ASSEMBLY *** 


03-APR-BE 


12:02 



PAGE 13 


1 

1043 

065717 


LIOS 

RAYCEN 


5 

1044 

137002 


LSA 

2 


3 

A 

1045 

105765 


5105 

DIRECT 

; CENTER OF RASTER 

**■ 

s 

1046 

045730 


LACS 

YCYC5Z 


6 

1047 

130400 


TAN 


; TEST IF DISABLED 

7 

1050 

141052 


JMP 

55 


B 

1051 

141061 


JMP 

65 ; SETS 

DISAELEB FQSITIQN 

9 

10 

1052 

001722 

S*: 

ABB 

Mi 


11 

1053 

115773 


SACS 

MTS 

; NOT DISAELED 

12 

1054 

045724 


LACS 

DELTX 

; SET RAS Y STEP SIZE 

13 

1055 

134006 


A5R 

6 

; AND INITIAL DIRECTION 

14 

1056 

011745 


ANB 

037 

; PASS Y STEP SIZE 

15 



; 




16 

1057 

071713 


LIN 

ONE 

; INDEX FOR Y RASTER 

17 

1060 

171054 


J5T 

RASLMC 


13 



/ 




19 

1061 

105717 

6%: 

SIOS 

P05NY 


20 

1062 

136614 


EX I 

RYLD 


21 

1063 

045634 


LACS 

03777 

; FOR 9B MS WAIT 

22 

1064 

170360 


J5T 

UWTX 


23 



; 




24 

1065 

137003 

RAXPGS : L5 A 

3 


2S 

1066 

065716 


LIOS 

RAXCEN 

; POINTING P05N 

26 

1067 

137002 


LSA 

2 


27 

1070 

105765 


5105 

DIRECT 

; USED LAYER IN CALC 

23 



; 




29 

1071 

045726 


LACS 

XCYCSZ 

; SETUP FOR CALCULATING X LIMITS 

30 

1072 

1304O0 


TAN 


; ... IF NEEDED 

31 

1073 

141075 


JMP 

IS 


32 

1074 

141103 


JMP 

25 

; UNNEEDED j DI5AELED 

33 







34 

1075 

001722 

If.: 

ABB 

Mi 


35 

1076 

115773 


SAC 5 

MTS 

;FASS STEP QUAN . FOR LIM CHECKING 

36 



; 




37 

1077 

045724 


LACS 

DELTX 

; UNPACK X STEP SUAN 

33 

1100 

134013 


ASR 

11 . 

; PASS STEP SIZE IN AC 

39 



; 




40 

1101 

071712 


LIN 

ZERO 

; X VARIABLE INDEX 

41 

1102 

171054 


JST 

RASLMC 

; CALCULATE LIMITS 

42 

1103 

105716 

2f.: 

SIOS 

P05NX 


43 

1104 

136610 


EX I 

RXLD 


44 

1105 

045634 


LACS 

03777 


45 

1106 

170360 


JST 

UWTX 

; 93 MS WAIT 

46 



; 




47 

1107 

170216 


JST 

DETLIM 

; FIND MAX ALLOWED CTR VAL . 

43 



; 




49 



; 

DETECTOR 

SETUP FOLLOWS 

50 

1110 

137003 


LSA 

3 


51 

1111 

045705 


LACS 

OL+l 

; PICK FOR HI BYTE 

52 

1112 

137002 


LSA 

2 


53 

1113 

134014 


ASR 

5.2. 

; GET HI 4 EITS OF O.L. WORD 

54 

1114 

115774 


SACS 

MT 6 

; TRANSFER AS INDEX ARG . 

55 

1115 

134403 


ASL 

3 

; SET BITS FOR LO HALF OF ACONFG 

56 

1116 

021713 


ORR 

ONE 

; SET INTERVAL = 1 

57 

1117 

170204 


JST 

DETPW 

; GET DET5 POWERED UP 



LONCH 

444 

JUNIOR 

ASSEMBLY 

4 + 9 

08— APR 

-85 12:02 PAGE 14 


1 

2 

1120 

045705 

'* 

LACS 

OL+1 



3 

1121 

137002 


LSA 

2 



4 

1122 

134404 


A5L 

4 

; PICK LO 4 BITS OF M5 8 


5 

1123 

134014 


A5R 

12. 



6 

1124 

115774 


SACS 

MT 6 



7 

1125 

130000 


TAZ 


; TE5T FOR NON-ZERO INTERVAL 2 


a 

1126 

141132 


JMP 

4S 

; NO INTVL 2 


9 

1127 

134403 


A5L 

3 

;SET INTERVAL 2 FART OF ACONFG 


10 

1130 

021714 


ORR 

TWO 

;SET INTERVAL = 2 


li 

1131 

134410 


A5L 

8. 

; POSITION IN MS HALF 


12 

1132 

137003 

4-$: 

L5A 

V 



13 

1133 

025771 


GRRS 

ACONFG 



14 

1134 

170204 


J5T 

DETPW 



15 



; EMSG5; 



SEND MESSAGES AND RUN EXP MT . 


16 

1135 

061751 


LIO 

MSG1 

; SEND 'BEGIN EXPERIMENT' MSG 


17 

1136 

171353 


J5T 

US MSG 



18 



; 





19 

1137 

137003 


LSA 

3 



20 

1140 

045677 


LACS 

EXPADV 

; TEST IF ADVANCING EXPT NO 


21 

1141 

130000 


TAZ 




22 

1142 

141324 


JMP 

REPMSG 

; NO EDE OUTFUT FOR REFEATS 


23 

1143 

005715 


ADDS 

EXPNUM 

; INCREMENT EXPERIMENT SEO NO. 


24 

25 

1144 

115715 


SACS 

EXPNUM 



26 

1145 

045705 


LACS 

OL + 1 

; CONDITIONAL 5T0P EXPT. INCREM 

ro 2 

O 2 

27 

1146 

134007 


A5R 

7 

; SHORTCUT A55UMES EXPADV IS 0 OR 1 

28 

1147 

015677 


A.NDS 

EXPADV 

; BIT i (L5B) AFFECTED 

O > 

29 

1150 

115677 


SACS 

EXPADV 

; CLEAR SERIAL NO. INCREMENT 

50 r- 

30 

31 

1151 

041750 

; 

LAC- 

EDBLO 

; EXPERIMENT DEFINITION BLOCK LOW ADDR 

•O 3? 

r" Yt 

32 

1152 

137002 


LSA 

2 


> GJ 

33 

1153 

115701 


5ACS 

AB 


ip m 

34 

1154 

001735 


ADD 

D16 

; SIZE OF EDB DUMP... 16.0 WORDS 

TY 

35 

1155 

115700 


SACS 

LAST 


36 

1156 

171130 


J5T 

BEKBMP 

; PERFORM EXP. DEF . ELK. DUMP 


37 

1157 

141324 


JMP 

REPMSG 



38 



; 





39 



; 





40 



; 

4444 

TACHOGRAM 

5ERVO ROUTINE 4444 


41 



; 

(LAST 

MODIFIED 

ON JULY 2j 1980) 


42 

1160 

141160 

TSCTRL : 

JMP . 

; TACH SERVO CONTROL 


43 

1161 

137002 


LSA 

2 

; USES COMPENSATED COUNT DATA 


44 

1162 

045737 

- 

LACS 

TCYC 



45 

1163 

130000 


TAZ 


; INACTIVE LOOP TEST 


46 

1164 

141160 


JMP 

T5CTRL 

; NO SERVO SO RETURN 


47 








48 

1165 

001722 


ADD 

Ml 



49 

1166 

130000 


TAZ 


; TEST IF 1 — >0 TRANSITION 


50 

1167 

141172 


JMP 

IS 

; YES 


51 

1170 

115737 


SACS 

TCYC 

; UPDATE COUNTER 


52 

1171 

141160 


JMP 

T5CTRL 

; RETURN 


53 



; 





54 

1172 

045736 

15-: 

LACS 

TCYC 52 

; SET INTERVAL COUNT BACK 


55 

1173 

115737 


SACS 

TCYC 



56 

1174 

045675 


LACS 

NT ACM 



57 

1175 

130000 


TAZ 








LONCH 

**>(! 

JUNIOR ASSEMBLY 

iH** 

08-APR- 

85 12:02 PAGE 15 

1 

1176 

141160 

JMP 

T5CTRL 

; PREVENT DIVISIONS BY ZERO ! 

2 

1177 

115773 

SACS 

MT5 

; SET DIVISOR FOR LATER NORMALIZATIONS 

4 

1200 

045714 

LACS 

TOTRDH 

; TRANSFER TOTALS OF RED COUNTS 

5 

1201 

065715 

LIDS 

TOTRDL 


6 

1202 

115771 

SACS 

MT3 


7 

8 
9 

1203 

105772 

5I0S 

MT4 


1204 

045712 

LACS 

TOTELH 

; LOAD BLUE ACCUMULATION 

10 

1205 

065713 

LIDS 

TOTBLL 


11 

1206 

115767 

SACS 

MT1 


12 

1207 

105770 

SIOS 

MTS 


13 


; 




14 

1210 

165542 

J5T 

MDPA 

.: SUM THE BLUE AND RED INTENSITIES ( IN MT3- 

15 

1211 

165665 

J5T 

DIVIDE 

; NORMALIZE AS THE ARITH MEAN 

16 

1212 

045772 

LACS 

MT 4 

.: FREVENT5 OVERFLOWS IN LATER CALCULATIONS 

17 

1213 

115765 

SACS 

DIRECT 

; SAVE NORMALIZED INTENSITY — (R+BJ/N 

18 


; 




19 

1214 

045714 

LACS 

TOTRDH 


20 

1215 

065715 

LIDS 

TOTRDL 


21 

1216 

115771 

SACS 

MT3 


22 

1217 

105772 

SIOS 

MT 4 


23 






24 

1220 

165572 

JST 

MDPS 

; FIND DIFFERENCE FOR NUMERATOR IIN MT3-4) 

25 

1221 

045675 

LACS 

NTACH 

; FORM ARITHMETIC MEAN OF RED-BLUE 

26 

1222 

115773 

SACS 

MT5 


27 

1223 

165665 

JST 

DIVIDE 

; (B-R)ZN 

28 


; 




29 

1224 

137003 

LSA 

3 

; 5ERV0 GAIN (TO BE SET BY GRND COMMAND) 

30 

1225 

045777 

LACS 

ESYGN 

; LOAD TACH SERVO GAIN VARIABLE 

31 

1226 

011721 

AND 

01777 

; MASK OFF BUSY BIT IN SIGN 

32 

1227 

137002 

LSA 

2 


33 

1230 

115773 

SACS 

MT5 


34 


; 




35 

1231 

165634 

JST 

MLTPLY 

; MULTIPLY BY GAIN VALUE— ( (B-R) /N) *GAIN 

36 


; 

CORRECTION: ( ( E 

-R)/N)*GAIN / ( ( R+E ) /N ) 

37 

1232 

045765 25: 

LACS 

DIRECT 


38 

1233 

115773 

SACS 

MT5 


39 

1234 

165665 

JST 

DIVIDE 

; FIND CORRECTION — INTENSITY NORMALIZED 

40 

1235 

061722 

LIO 

Ml 


41 

1236 

045772 

LACS 

MT 4 


42 

1237 

130400 

TAN 



43 

1240 

141247 

JMP 

4S 


44 

1241 

001717 

ADD 

SIX 

; TEST IF LT -6 

45 

1242 

130400 

TAN 



46 

1243 

141256 

JMP 

5$ 


47 

1244 

051717 

LAN 

SIX 


48 

1245 

115772 

SACS 

MT 4 


49 

1246 

141256 

JMP 

5S 


50 


; 




51 

1247 

061712 4$: 

LIO 

ZERO 

; TEST IF GT 6 

52 

125 0 

055772 

LANS 

11 T 4 


53 

1251 

0017 17 

ADD 

SIX 


54 

1252 

130400 

TAN 



55 

1253 

141256 

JMP 

5 S 


56 

1254 

041717 

LAC 

SIX 


5 7 

1255 

115772 

SACS 

MT 4 
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1 

1256 

105771 

55: 

SI 05 

MT3 

; SET HIGH EITS 

2 

1257 

045772 


LACS 

MT 4 


3 

1260 

137003 


L5A 

3 


4 

1261 

005756 


ADDS 

OFFTTL 

; UPDATE ACCUMULATION OF SERVO CORRECTION 

5 

1262 

115756 


SACS 

OFFTTL 

; STORE IN DMA LOCN 

6 

7 

1263 

061752 


LID 

MSG12 

; SEND CORRECTION MESSAGE 

8 

1264 

171353 


J5T 

USMSG 


9 

1265 

065772 


LIDS 

MT 4 

; NO SEGMENT CORRECTION REO'D 

10 

1266 

171353 


J5T 

U5M5G 


1 1 
12 

1267 

132000 

' 

CAC 



13 

1270 

115714 


SACS 

TOTRDH 

; CLEAR SUM OF COUNTER DATA 

14 

1271 

115715 


SACS 

TOTRBL 


15 

1272 

115712 


SACS 

TOTELH 


16 

1273 

115713 


SACS 

TOTELL 


17 

1274 

115675 


SACS 

NTACH 

; RESET N OF SUMMATION 

18 



; 




19 

1275 

04S743 


LACS 

DWLDHI 

; ADJUST LAMEDA SCAN RESET VALUE 

20 

1276 

115767 


SACS 

MT 1 


21 

1277 

045744 


LACS 

DWLDLO 


22 

1300 

115770 


SACS 

MT8 


23 

1301 

165542 


JST 

MDPA 


24 



; 444 




25 

1302 

161467 


JST 

KDWPS 

; IMMEDIATE WLD ADJUSTMENT 

26 

1303 

141160 


JMP 

TSCTRL 

; RETURN TO NEXT CONTROL SLOT 

27 



; 




28 



; 

4*44 + 

OUTER CONTROL LOOP 4*4* 

29 



; 




30 

1304 

137002 

COUTER 

: L5A 2 



31 

1305 

035703 


DM5S 

PA SC NT 


32 

1306 

141316 


JMP 

CTR1 


33 

1307 

061727 

COUT: 1 

LIO 

MSG 3 


34 

1310 

171353 


JST 

USMSG 

; SEND END OF EXPMT MSG 

35 

1311 

045650 


LACS 

SPC1 

; EXPMT COMPLETED 

36 

1312 

1 30000 


TAZ 



37 

1313 

140162 


JMP 

MONITR 


38 

1314 

170433 


JST 

DUALP 

; DIGEST LAST DATA PAIR 

39 

1315 

140162 


JMP 

MONITR 


40 



; 




41 

1316 

137003 

CTR1: 1 

L5A 

3 


42 

1317 

1 32000 


CAC 



43 

1320 

115766 


SACS 

CXCYCL 


44 

1321 

115767 


SACS 

CYCYCL 

; CLEAR OUTER LOOP COUNTERS 

45 

1322 

115763 


SACS 

WLSCAN 


46 

1323 

115765 


SACS 

CPRCYC 


47 



; 




48 

1324 

137003 

REPM5G 

: LSA 

3 


49 

1323 

045770 


LACS 

REPEAT 

; PRODUCE LOOP MESSAGE 

50 

1326 

001713 


ADD 

ONE 


51 

1327 

115770 


SACS 

REPEAT 


52 

1330 

021336 


OPR 

MSG160 

; FORMAT IS 160000+ N WHERE 

53 

1331 

171403 


JST 

SNDMSG 

; 0 < N < COL+43 AND OL+4 .LE. 2E13 -1 

54 

1332 

055677 


LANS 

HEATl.’D 


55 

1333 

1 30400 


TAN 



56 

1334 

171463 


JST 

HEATR 


57 

1335 

141756 


JMP 

MEASUR 

; INITIATE DATA INPUT 




LONCH 

444 

JUNIOR 

ASSEMBLY 

444 

08-APR 
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1 

1336 

160000 

MSG 160 ; 

160000 



c 

3 

4 



• 

4444 Y 

RASTER 

CONTROL LOOP *444 

6 

1337 

045730 

RYCFIN- 

LACS VC' 

.'CSZ 


6 

1340 

115731 


SACS 

RYCYCL 


7 

n 

1341 

171025 


J5T 

RAYUND 

.’RESET TO TOP 

o 

V 

1342 

041713 


LAC 

ONE 


10 

134 3 

137003 


L5A 

3 

; SEND END OF Y SCAN MSG. 

11 

1344 

005767 


ADDS 

CYCYCL 


12 

1345 

115767 


SACS 

CYC YCL 


13 

1346 

011721 


AND 

01777 

; MASK FOR MSG INTEGRITY 

14 

1347 

021365 


ORR 

MSG16V 


15 

1350 

171403 


JST 

5NDMSG 


16 



; 




17 

1351 

141351 

RYCTRL : 

JMP . 



16 

135 2 

137002 


LSA 

2 


19 

135 3 

045731 


LACS 

RYCYCL 

; TEST IP LOOP IS ACTIVE 

20 

1354 

130400 


TAN 



21 

1355 

141357 


JMP 

IS 

; ACTIVE 

22 

135 6 

141351 


JMP 

RYCTRL 

; DISAELED . . . RETURN 

23 



; 




24 

1357 

001722 

is-. 

ADD 

Ml 


25 

1360 

130000 


TAZ 

; 

'■ TEST IF LOOP CYCLE IS COMPLETE 

26 

1361 

141337 


JMP 

RYCF1N 

; COMPLETED 

27 



; 




28 

1362 

115731 


SACS 

RYCYCL 


29 

1363 

171025 . 


JST 

RAYUND 


30 

1364 

141736 


JMP 

MEASUfi 


31 



; 




32 

1365 

116000 

M5G1&Y: 

116000 



33 



; 




34 



; 

44*44* Y 

RASTER 

CONTROL LOOP 

35 



; 




36 

1366 

045726 

RXCFIN: 

LACS YC' 

.'CSZ 

; RYCTRL-i 1 THIS IS FINAL PART OF CONTROL PROG 

37 

1367 

115727 


SACS 

RYCYCL 

; RESET LOOP COUNTER 

38 

1370 

171003 


JST 

RAYUND 

; RESET -Y AYIS 

39 

1371 

041713 


LAC 

ONE 


40 

1372 

137003 


LSA 

3 


41 

1373 

005766 


ADDS 

CYCYCL 


42 

1374 

115766 


5ACS 

CYCYCL 

; INCREMENT COUNTER 

43 

1375 

011721 


AND 

01777 


44 

1376 

021414 


ORR 

MSG12Y 

PRODUCE MESSAGE 

45 

1377 

171403 


JST 

5NDMSG 


46 



; 




4-7 

1400 

141400 

RKCTRL: 

JMP . 



48 

1401 

137002 


LSA 

2 


49 

1402 

045727 


LACS 

RYCYCL 


50 

140 3 

1 30400 


TAN 


; TEST IK CONTROL LOOP DISAELED 

51 

1404 

141406 


JMP 

IS 


52 

1405 

141400 


JMP 

RYCTRL 

; DISAELED, SO RETURN 

53 



; 



1 

54 

1406 

001722 

IS: 

ADD 

Ml 


55 

1407 

130000 


TAZ 



56 

1410 

141366 


JMP 

RYCFIN 


57 



; 






LONCH 



>K H* 

JUNIOR 

ASSEMBLY 

1 ) 11 ) 1 + 

08— AFR 

1 

1411 

113727 


SACS 

RXCYCL 

2 

1412 

171003 


J ST 

RANUND 

3 

4 

1413 

141756 


JMP 

MEASUR 

5 

6 
-» 

1414 

112000 

M5G12>:: 

112000 


/ 

6 



; 

++++ WAvtLENG i 

9 

10 

1415 

045741 

DW5FIN- 

LACS WLCY5Z 

11 

1416 

115742 


SACS 

WLCYC 

12 

1417 

041713 


LAC 

ONE 

13 

1420 

137003 


L5A 

3 

14 

1421 

005763 


ADDS 

WLSCAN 

IS 

1422 

115763 


SACS 

WL5CAN 

1 b 

1423 

021466 


ORR 

M5G2 

17 

1424 

171403 


JST 

SNDM5G 

18 

142S 

171047 


JST 

DLYT5T 

19 



; + + RESET WLD 

TO START 

20 

1426 

1 37002 


LSA 

2 

21 

1427 

0S5611 


LANS 

0NE2 

22 

1430 

005703 


ADDS 

PA5CNT 

23 

1431 

130000 


T AZ 


24 

1432 

141434 


JMP 

DW5TP 

25 

1433 

164274 


JST 

DWP05 

26 



; ## 



27 



; 



28 



; ENTR 

V POINT 


29 

1434 

141434 

DW5TP: 

JMP . 


30 

1435 

137002 


LSA 

2 

31 

1436 

045742 


LACS 

WLCYC 

32 

1437 

130400 


TAN 


33 

1440 

141442 


JMP 

IS 

34 

1441 

141434 


JMP 

DWSTP 

35 




; 


36 

1442 

1 30000 

i*: 

TAZ 


37 

1443 

141415 


JMP 

DIJSFIN 

38 






39 

1444 

001722 


ADD 

Ml 

40 

1445 

115742 


SACS 

WLCYC 

41 



; 



42 

1446 

171047 


JST 

DLYT5T 

43 

144 7 

137003 


LSA 3 


44 

1450 

045761 


LACS 

AWLDHI 

45 

1451 

065762 


L I OS 

AWLDLO 

46 

1452 

137002 


LSA 

2 

47 

1453 

115767 


S Au S 

MT1 

48 

1454 

105770 


SIC'S 

MT2 

49 

1455 

1 32000 


CAC 


50 

1456 

065740 


LIOS 

DELTAL 

51 

1457 

115771 


SACS 

MT3 

S2 

1460 

105772 


5I0S 

TIT 4 

53 

1461 

165572 


JST 

MDPS 

54 

1462 

045771 


LACS 

MT3 

55 

1463 

065772 


LIOS 

MT 4 

56 

1464 

164216 


JST 

MOVLOW 

57 



; 




1R: 0E 


PAGE 18 


; DISPLACED ENTRY BELOW 
;SET DEFLETED CYCLE COUNTER 


; INCREMENT SCAN COUNTER 
; 120000 + N N < 2 ( 131 - 1 

; WAIT FOR POWER LIMIT DELAYS 

POINT (K1.Y BACK! ONLY IF THE WLD SCAN I! 


REPEATED 


: LAST REPEAT OF SCAN? 


NO: 


SKIP RESET OF WLD 
RESET WLD TO START POSN. 


; TEST FOR END OF LINE 
; REALLY WAS EOL 

; DECREMENT CYCLE COUNT 


DLYT5T ; WAIT FOR POWER DELAYS 


; SUBTRACT DOUBLE PRECISION FOR REVERSING 



LONCH 
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1 

2 

3 

1465 

141756 


JMP 

MEASUR 


1466 

120000 

M5G2 : 1 

20000 



4 



; ■+’(!>)< 




5 

146 7 

141467 

MBWPS: 

JMP 



6 

1470 

045771 


LAC* 

MTS 


7 

1471 

065772 


LID* 

MT4 


8 

1472 

115743 


SAC £ 

DWLBHI 


9 

14/3 

105744 


5 1 OS 

BWLBLO 


ID 

1474 

164274 


J5T 

BWPOS 


11 

1475 

141467 


JMP 

MBWPS 


12 



; 




13 



; 

i(i ip** 

CALIBRATION CONTROL id*** 

14 







15 

1476 

141476 

CCALIB: 

JMP . 



16 

147 7 

137002 


LSA 

2 


17 

1500 

045755 


LACS 

CALLAM 

; TEST OFFSET PRESENTLY SET 

18 

1501 

130000 


TAZ 



19 

1502 

141523 


JMP 

CLINT 

; POUND NONE =0 

20 

1503 

065755 


LIDS 

CALLAM 

; FOUND SOME . . . REMOVE IT 

21 

1504 

132000 


CAC 



22 

1505 

115755 


SACS 

CALLAM 

; CLEAR OFFSET PRESENTLY SET 

23 




; 



24 

1506 

115771 


SACS 

MT3 


25 

1507 

105772 


5I0S 

MT 4 


26 

1510 

137003 


LSA 

3 


27 

1511 

045761 


LACS 

AWLBHI 


28 

1512 

065762 


LIOS 

AWLBLO 


29 

1513 

137002 


LSA 

2 


30 

1514 

115767 


SACS 

MT 1 


31 

1515 

105770 


SIOS 

MT2 


32 

1516 

165572 


JST 

MBPS 

; REMOVE BY SUBTRACTING 

33 



; 




34 

1517 

161467 


JST 

MBWPS 

JMOVE WLB AND REDUCE STEP PWR 

35 



; *** 




36 

1520 

061557 


LIO 

MSG7 

; GET END OF CALIBRATION MESSAGE 

37 

1521 

171353 


JST 

U5MSG 


3B 

1522 

141476 


JMP 

CCALIB 


39 



; 




40 

1523 

045756 

CLINT '• 

LACS CALCYC 

; GET CALIBRATION INTERVAL 

41 

1524 

001722 


ADD 

Ml 


42 

1525 

1 30400 


TAN 


; TEST FOR ZERO OR NEG 

43 

1526 

141530 


JMP 

IS 


44 

1527 

141476 


JMP 

CCALIB 

; NO CALIBRATION SETUP — RETURN 

45 



; 




46 

1530 

130000 

IS: 

TAZ 


; TEST INTERVAL COUNTER 

47 

1531 

141534 


JMP 

25 

; CALIER. TIME IS NOW 

48 

1532 

115756 


SACS 

CALCYC 

; INTERVAL NOT UP — DECREMENT 

49 

1533 

141476 


JMP 

CCALIB 

; RETURN 

50 




; SET 

INTERVAL COUNTER TO REFEAT 

51 

1534 

045754 

5S-: 

LACS 

CCYCSZ 

; FOLLOWING A CALIBRATION CYCLE 

52 

1535 

115756 


SACS 

CALCYC 


53 

1536 

065753 


LIOS 

CALSIZ 


54 



; 




55 

1537 

105755 


-5105 

CALLAM 

; SET PRESENT CALIBRATION OFFSET 

56 

1540 

132000 


CAC 



57 

1541 

115771 


SACS 

MT3 





LONCH 

*!)<* 
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1 

1542 

105772 


5105 


MT4 


2 

1543 

137003 


LSA 


3 


3 

1544 

045761 


LAC5 


AWLBHI 


4 

1546 

065762 


LI 05 


AWLDLO 


5 

1546 

137002 


L5A 


2 


6 

1547 

1 157 67 


5AC5 


MT1 


7 

1550 

105770 


- 5105 


MT2 


B 

1551 

165542 


J5T 


MDFA 

■ ADD CALIBRATION OFFSET 

9 



; *■!<+ 





10 

1552 

161467 


J5T 


MDUP5 

; MOVE 14 LB AND REDUCE STEP PWR 

11 



l * + >)■ 





12 

1553 

061556 


LIO 


M5G6 


13 

1554 

171353 


J5T 


U5MSG 


14 

1556 

141756 


JMP 


MEA5UR 

; MAKE A CALIBRATION PASS 

15 



; 





16 

1556 

155006 

MSG6- 

155006 




17 

1557 

155007 

M5G7 : 

155007 




18 



; 





19 



; 


FOLARIMETER CONTROL **** 

2® 








21 

1560 

045732 

PRCFNS 

■ LACS 

0C1 

i'C52 


22 

1561 

115733 


SAC 5 


PRC YCL 

; ENTRY POINT IS DISPLACED BELOW 

23 

1562 

137003 


LSA 




24 

1563 

041713 


LAC 


ONE 


25 

1564 

005765 


ADDS 


CPRCYC 


26 

1565 

115765 


SACS 


CPRCYC 


27 

1566 

137002 


LSA 


2 


28 

1567 

115773 


SACS 


MTS 


29 








30 

1570 

170706 


J5T 


GETPRF 

; RESET TO REFERENCE 

31 

1571 

045773 


LACS 


MTS 


32 

1572 

011721 


AND 


01777 


33 

1573 

021611 


ORR 


M5G10P 

; SEND CYCLE MESSAGE 

34 

1574 

171403 


J5T 


3NDM5G 

; FORMAT 110000 + N 

35 



; 





36 

1575 

141575 

PRCTRL 

: JMP . 


; POLARIM 

ETER CONTROL ROUTINE 

37 

1576 

137082 


LSA 


2 


36 

1577 

045733 


LACS 


PRC YCL 


39 

1600 

130400 


TAN 



; TEST FOR NULL CONTROL LOOP 

40 

1601 

141603 


JMP 


IS 


41 

1602 

141575 


JMP 


PRCTRL 

; RETURN FROM NULL CONTROL LOOP 

42 



; 





43 

1603 

130000 


TA2 



; TEST FOR END OF LOOP 

44 

1604 

141560 


JMP 


PRCFNS 

; END HAS FOUND 

45 



; 





46 

1605 

001722 


ADD 


Ml 

; DECREMENT CYCLE COUNT 

47 

1606 

115733 


SACS 


PRC YCL 

; UPDATE COUNTER LOCATION 

48 

1607 

170734 


J5T 


MOVPR 

; CALL FOR DEVICE STEP 

49 



; 





50 

1610 

141756 


JMP 


MEASUR 

; RETURN TO DATA INPUT PROG. 

51 



; 





32 



; 





53 

1611 

110000 

MSG 1 CP 

: 11OO00 


• 

54 



; 





55 

1612 

141612 

DTIM : 

JMP . 


; HALT GATES 

56 

1613 

137003 


LSA 

3 



57 

1614 

061713 


LIO 


ONE 




LONCH 






JUNIOR 

ASSEMBL' 

V 

08— APR- 

-85 12:02 PAGE 21 

i 

1615 

136711 


exi 

C2LD 


2 

1616 

136715 


EX 1 

C3LD 


3 

1617 

045703 


LACS 

OLS 

; CLEAR SETUP BIT 

4 

1620 

011721 


AND 

01777 

; MASK OFF SIGN BIT 

5 

1621 

115703 


SACS 

OLS 


6 

1622 

136432 


EXI 

JRC 2 


7 

1623 

136422 


EXI 

JRC 3 


B 

1624 

136564 


EXI 

DIF 


9 

1625 

1 365 66 


EXI 

D2F 


10 

1626 

136570 


EXI 

D3F 


11 

1627 

136572 


EXI 

D4F 


12 

1630 

136576 


EXI 

D5F 


13 

1631 

141612 


JMP 

DTIM 


14 



; 




15 

1632 

141632 

DEV'OFF 

: JMP . 



14. 

1633 

136762 


EXI 

QRF 

; PLATE OFF 

17 

1634 

137003 


LSA 

3 


18 

1635 

061713 


LI 0 

ONE 


19 

1636 

105772 


SIOS 

RPWD 

; RASTER. WLD OFF 

20 

1637 

136600 


EXI 

RPLD 


21 

1640 

141632 


JMP 

DEVOFF 


22 



; 




23 

1641 

141641 

BSYCLR 

: JMP . 

; SET BUSY TO + 50 LEVEL 2 INTRPTS 

24 

1642 

137003 


LSA 

3 

; CAN EE SERVICED 

25 

1643 

045777 


LACS 

BSYGN 

; BUSY BIT AND TS GAIN ARE COMBINED 

26 

1644 

011721 


AND 

01777 

; LIMITS SIZE OF GAIN 

27 

1645 

115777 


SACS 

BSYGN 


28 

1646 

141641 


JMP 

BSYCLR 


29 



; 




30 



; OBC ’ OK ' 

HAS TRIPPED. .. SHUT DOWN NOW 

31 

1647 

136660 

CLOSE: 

EXI 

HiF 

;HTR i OFF. & CLOSE DOOR 

32 

1650 

136461 


EXI 

DORN 

; DOOR PWR ON 

33 

1651 

041747 


LAC 

0377 

; (12 MSEC WAIT) 

34 

1652 

170360 


JST 

UWTX 


35 

1653 

136463 


EXI 

DORC 

.: CLOSE DOOR COMMAND 

36 

1654 

061663 

4$: 

LIO 

013 


37 

1655 

170051 


JST 

USMR 

; WAIT TILL DOOR IS CLOSED 

38 

1656 

134407 


ASL 

7 


39 

1657 

130400 


TAN 



40 

1660 

141654 


JMP 

4S 


41 

1661 

136460 


EXI 

DORF 

; THEN DOOR POWER OFF. 

42 

1662 

133000 


HLT 

; 

AND HALT JR. 

43 

1663 

000013 

013- 

13 



44 



; 




45 

1664 

160447 

COMPAA 

: JST 

FIELDS ; PRELIM INSTRUCTION PARSE 

46 

1665 

056000 


LANSI 

6000 

; LOAD NEGATIVE 'E' DATA 

47 

1666 

005776 


ADDS 

TEMFJ 

; ADD 'A' DATA. TEST B-A 

48 

1667 

1 30400 

COMT : 

TAN 



49 

1670 

141672 


JMP 

. +2 

; POSITIVE OR 0. SO B . GE . A 

50 

1671 

140162 


JMP 

MQNITR 

; NEGATIVE. SO E . LT . A 

51 

1672 

041713 


LAC 

ONE 

; * 6 * 

52 

167 3 

140506 


JMP 

GON 

; USE SECONDARY ENTRY POINT 

53 



; 




54 

1674 

160447 

ADDD : 

J5T FIELDS 

; PRELIMINARY INSTRUCTION PARSE 

55 

1675 

045776 


LACS 

TEMP J 

; LOAD 'A' DATA 

56 

1676 

131000 


TOF 


; CLEAR QVFL LATCH 

57 

1677 

141700 


JMP 

. +1 





LONCH 

4*4*4* 

JUNIOR 

ASSEMBL'i 

4*4*4* 

03-APR 

—85 12*02 PAGE 22 

1 

1700 

006000 


ADDSI 

6000 

; ADD ! F •’ INDEXED DATA ; SECONDARY ENTR 

2 

1701 

116000 


5ACSI 


; STORE 1 E+A ■* DATA AT 'B' 

3 

A 

1702 

140162 


JMP MONITR 


*► 

5 

1703 

160447 

CMPR: JST FIELDS 

; REVERSE SENSE COMPARE 

6 

1704 

055776 


LANS 

TEMFJ 

; LOAD NEG 'A' DATA 

7 

1705 

006000 


ADDSI 

6000 

; ADD INDEXED ARG 'B» 

8 

1706 

141667 


JMP 

COKT 


9 



; 4*4*4 




10 

1707 

000000 

DATA: 

0 



11 

1710 

000000 

TEMPB: 

0 



18 



; 4*4*4 




13 

1711 

000241 

UNM5K : 

241 

; INTRPT 

MASK FOR LEVEL 3 CONTROL 

14 

1712 

000000 

ZERO'- 

0 



15 

1713 

000001 

ONE: 

1 



16 

1714 

000002 

TWO: 

2 



17 

1715 

000003 

THREE: 

3 



18 

1716 

000004 

FOUR: 

4 



19 

1717 

000006 

si:;: 

6 



80 







21 

1720 

000007 

SEVEN: 

7 



22 

1721 

001777 

01777: 

1777 



23 

1722 

177777 

Ml : 

-1 



24 

1723 

177776 

M2: 

“8 



25 

1724 

177774 

M4: 

-4 



26 

1725 

047777 

047777: 

47777 



27 

1726 

150CO0 

01 50K : 

150000 



28 

1727 

155003 

M5G3 : 

155003 



29 

1730 

1 0OOO0 

5GNBIT : 

100000 



30 

1731 

007716 

RWEUF: 

RAXCEN 



31 

1732 

174777 

5MA5K : 

174777 



32 

1733 

177720 

M 4 6 D : 

-48. 



33 



1 4*4*4* 




34 

1734 

176206 

M1616* 

-1572 



35 

1735 

000020 

D 1 6 * 

16. 



36 

1736 

000040 

B32-- 

32. 



37 

1737 

000076 

D62 * 

62 . 



38 

1740 

000177 

0177* 

177 



39 

1741 

177600 

017760 

177 600 



40 

1742 

100017 

01 TZ17 ; 

100017 



41 

1743 

000005 

05 : 

5 



42 

1744 

000017 

017: 

17 



43 

1745 

000037 

037: 

37 



44 

1746 

000O77 

077: 

77 



45 

1747 

000377 

0377: 

377 



46 

1750 

007700 

EBBLG : 

7700 



47 

1751 

155001 

MSG1 : 

155001 



48 

1752 

155012 

MSC-12: 

155012 



49 

1753 

061727 

ENBWT: 

LIO 

M5G3 

; END OF E;.;p riSG 

50 

1754 

171353 


JST 

U5M5G 


51 

1755 

140327 


. JMP 

ALLOFF 


52 



; 




53 



• 


ACONFG 

ALTERNATE ACTIVE INTVL 

54 

55 





I 

I I 

56 



;• 


— 



57 
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1 

1756 

164022 

MEASUR: J5T CLLCT 

2 

1757 

170631 

JST 

CKINTN 

3 

1760 

137302 

LSA £ 


4 

1761 

045654 

LACS 

BOTH 

5 

1762 

130400 

TAN 


6 

1763 

141774 

JMP 

TANDM 

7 

1764 

045761 

LACS 

TM2WD 

8 

1765 

115650 

SACS 

SPC1 

9 

1766 

045762 

LACS 

TH3WD 

13 

1767 

116651 

SACS 

SPC £ 

11 

1770 

045716 

LACS 

P05NX 

12 

1771 

115652 

SACS 

SFX 

13 

1772 

045717 

LACS 

F05NY 

14 

1773 

115653 

SACS 

SPY 

15 

1774 

137003 

TANDM : LSA 3 


16 

1775 

045771 

LACS 

ACONFG 

17 

1776 

135406 

RSL 

6 

18 

1777 

130400 

TAN 


1? 

2000 

144010 

JMP 

FLRTST 

£0 

£001 

135402 

RSL 

2 

21 

2002 

115771 

SACS 

ACONFG 

EE 

2003 

164022 

JST 

CLLCT 

23 

2004 

137003 

LSA 

3 

£4 

2005 

045771 

LACS 

ACONFG 

25 

2006 

135010 

RSR 

B. 

26 

2007 

115771 

SACS 

ACONFG 

E 7 

2010 

045733 

FLRT5T-- LACS FLAG 

£8 

2011 

130400 

TAN 


2? 

£012 

151640 

JMP 

CTL5LT 

30 

£013 

134401 

A5L 1 


31 

2014 

134016 

ASR 14. 


32 

2015 

130000 

TAZ 


33 

2016 

151640 

JMP 

CTLSLT 

34 

2017 

141307 

JMP 

COUT 

35 



; 


36 

2020 

06G241 

CGLFIN : LI 0 ZEROl 

37 

2021 

136721 

EXI 

321 

38 

2022 

14402E 

CLLCT: JMP . 


39 

2023 

137003 

LSA 3 


40 

2024 

045714 

LACS 

0L+e. 

41 

2025 

065771 

LIDS 

ACONFG 

4E 

2026 

137002 

LSA 2 


43 

2027 

105765 

5 IOS 

DIRECT 

44 

2030 

135010 

RSR 

8. 

45 

2031 

115775 

SACS 

MT7 

46 

2032 

065775 

LIOS 

MT7 

47 

2033 

136710 

EXI 

TELD 

48 

2034 

136714 

EXI 

T3LD 

49 



; 


53 

£035 

134405 

ASL 5 


51 

2036 

134015 

ASR 13. 


5E 

2037 

115774 

SACS 

MT 6 

53 

2040 

07577 4 

LINS 

MT 6 

54 

£04 1 

062173 

LIOI 

CLKTEL 

55 

2042 

136711 

EXI 

C2LD 

56 

2043 

136715 

EXI 

C3LD 

57 



; 



; TEST FOR DUAL COUNTER DATA 
; SKIP IF DUAL 


; TEST IF 2 INTERVALS 
; INTRV'L i BIT : E TO SIGN POSN 
; SKIP IF USING E INTRVLS 
; ONLY ONE 

; COMPLETE CONFG . BYTE SWAP 
; SET STATUS WORD 
; TAKE OTHER DATA AND OUTPUT 

; REPLACE SWAPPED BYTES OF CONFG. 


;exit to control slot pgm. 

; MASK FOR TEST 

; SKIP IF SUPER OR IMMED ARE SET 
; FLARE BITS SET; END EXPMT. 


; BET ROUTE CLEARED 


; SET CLOCK CODE / GATE TIKE AND ROUTING 

; SAVE FOR TEMPR. USE 
; MOVE TIKE TO LOW HALF 


; SET GATE E COUNT 
; SET GATE 3 SAME 


; GET CLOCK INDEX 
; USE 3 EIT INDEX TO CLOCK TABLE 
; LOAD CLOCK SELECT WORD 
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1 

2044 

1 32000 


CAC 

; CLEAR 

INTRPT FLAGS 

2 

2045 

115761 


SAC 5 

TM2WD 


3 

4. 

2046 

115762 


SAC 5 

TM3WD 


5 

2047 

045765 


LAC 5 

DIRECT 

; SET ROUTING OF DATA 

6 

2050 

134411 


A5L 

9. 

; MOVE DUAL FLAG EIT TO SIGN 

7 

2051 

115654 


SACS 

EOTH 

; SAVE SINGLE/DUAL DET. FLAG 

8 

2052 

134014 


A5R 12. 


9 

205 3 

115774 


SAC 5 

MT6 

; USE 4 EIT INDEX TO ROUTING TABLE 

10 

2054 

075774 


LINS 

MT 6 


11 

2055 

066153 


LI0I5 

DETTBL 

; LD 8 BIT ROUTING DATA 

12 

2056 

136721 


exi 

321 

; SET PATH OF DETECTOR ROUTING 

13 



; 




14 

2057 

134414 


A5L 12. 


15 

2060 

1 30400 


TAN 


; SKIP IF 2 DETS USED 

16 

2061 

144063 


JMP 

IS 

; ONLY ONE SPECIFIED 

17 

2062 

1 367 1 6 


EX I 

G3I 

; INITIATE GATE 3 

18 

2063 

136712 

15: 

EX I 

G2I 

; GATE 2 

19 

2064 

045650 


LACS 

SPC1 

; TEST IF LAST DATA CHOMPED 

20 

2065 

130000 


TA2 



21 

2066 

144071 


JMP 

2S 


22 

2067 

170433 


J5T 

DUALP 

; NO 

23 

2070 

137002 


L5A 2 



24 

2071 

045761 

25: 

LACS 

TM2WD 

; TEST FLAG CLEARED AT START 

25 

2072 

130400 


TAN 


; FLAG SET NEG BY INTRPT 

26 

2073 

144071 


JMP 

as 


27 

2074 

136442 


EX I 

RTM2 


28 

2075 

105761 


5105 

TM2WD 


29 

2076 

045761 


LACS 

TM2WD 


30 

2077 

015636 


AND 5 

077777 


31 

2100 

115772 


SACS 

MT 4 


32 

2101 

060252 


LIO 

076 


33 

2102 

170051 


J5T 

U5MR 

; GET 0VF2 STATUS 

34 

2103 

135001 


RSR 

1 

;0VF2 TO MSB 

35 

2104 

115773 


SACS 

MTS 


36 

2105 

130400 


TAN 



37 

2106 

144120 


JMP 

35 


38 

2107 

060200 


LIO 

FCTQV ; 

SEND OVERFLOWED MESSAGE 

39 

2110 

171275 


J5T 

U2M5G ; 

USE SAME DATA CHANNEL 

40 

2111 

136713 


EX I 

TM2N ; 

CLEAR 0VF2 LATCH 

41 

2112 

065772 


LIOS 

MT 4 


42 

2113 

171275 


J5T 

U2M5G ; 

SEND DATA ON EU5 

43 

2114 

045761 


LACS 

TM2ND 

; TEST TM2VJD MSB 

44 

2115 

130400 


TAN 



45 

2116 

164201 


J5T 

DETFF 

; LARGE OVERFLOW/ DET. OFF 

46 

2117 

144122 


JMP 

4$ 


47 



; 




48 

2120 

065772 

35: 

LIOS 

MT 4 


49 

2121 

171275 


J5T 

U2MSG 


50 

2122 

045761 

45: 

LACS 

TM2WD 


51 

2123 

134001 


A SR 

1 


52 

2124 

115761 


5ACS 

TM2WD ; 

SCALE TO IGNORE SIGH BIT 

53 

2125 

055676 


LANS 

LTDCTS 


54 

2126 

005761 


ADDS 

TM2WD 


55 

2127 

130400 


TAN 



56 

2130 

164201 


J ST 

DETFF 

; DETECTORS OFF 

57 

2131 

045654 


LACS 

BOTH ; 

DUAL DETECTOR FLAG TEST 
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1 

2132 

1 30400 


TAN 



2 

3 

4 

2133 

144020 


JtIF 

COLFIN ; 

NOT EXP EC i lD 50 RETURN 

2134 

045762 

55: 

LACS 

TM3WD 

; TEST FLAG CLEARED AT START 

5 

2135 

130400 


TAN 

; FL 

AG SET NEG EY INTRPT 

6 

2134 

144134 


JMP 

5$ 


7 

2137 

136443 


EX I 

RTM3 


8 

2140 

105762 


5105 

TM3WD 


9 

2141 

045762 


LACS 

TM3WD ; 

LEAVE COLLECTED DATA INTACT 

10 

2142 

015636 


AND5 

077777 


11 

2143 

115772 


SACS 

MT 4 


12 

2144 

045773 


LACS 

MT5 ; 

SAVED OFL STAT 

13 

2145 

135001 


R5R 

1 ; 

OVFL 3 TO MSB 

14 

2146 

130400 


TAN 



15 

2147 

144161 


JMP 

6S 


16 

2150 

060200 


LI 0 

FCTOV 


17 

2151 

171323 


J5T 

U3M5G ; 

SEND M5G ON DATA CHANNEL 

18 

2152 

136717 


EX I 

TM3N ; 

CLEAR 0VFL3 LATCH 

19 

2153 

065772 


L I OS 

MT 4 


20 

2154 

171323 


J5T 

U3M5G 


21 

2155 

045762 


LACS 

TM3UD 


22 

2156 

130400 


TAN 



23 

2157 

164201 


J5T 

DETFF 

; LARGE OVFLj DET. OFF 

24 

2160 

144163 


JMP 

7S 


25 



; 




26 

2161 

065772 

6 S' 

LIDS 

MT4 


27 

2162 

171323 


J5T 

U3M5G 


2B 

2163 

045762 

75: 

LACS 

TM3WD 


29 

2164 

134001 


A5R 

1 


30 

2165 

115762 


5ACS 

TM3WD 


31 

2166 

055676 


LANS 

LTDCT5 


32 

2167 

005762 


ADDS 

TM3WD 


33 

2170 

1 30400 


TAN 



34 

2171 

164201 


J5T 

DETFF 

; COUNT EXCEEDED LIMIT 

35 

2172 

144020 


JMP 

COLFIN ; 

RETURN 

36 







37 



ONE 1 : 




38 

2173 

000001 

CLKTBL: 

1. ; 

16 KHZ 

62.5 MICRCSEC 

39 

2174 

000002 


2. ; 

2 KHZ 

500 MICRC'SEC 

40 

2175 

000004 

FOUR1 : 

4. ; 

125 HZ 

8 MILLISEC 

41 

2176 

000010 


10; 

31.25 HZ 

32 MILLISEC 

42 

2177 

000020 


20: 7 

.3125 HZ 

156 MILLISEC 

43 



; 




44 

2200 

155550 

PCTOV: 

155550 


45 







46 

2201 

144201 

DETFF : 

JMP 

; DETECTOR POWER OFF 

47 

2202 

161612 


J5T 

DTIM 

; USED IF COUNTS TOO HIGH 

48 

2203 

045733 


LACS 

FLAG 

; SET STATUS BIT 

49 

2204 

020254 


ORR 

01 OKI 


50 

2205 

115733 


SACS 

FLAG 


51 

2206 

137002 


L5A 

2 


52 

C 

2207 

144201 


JMP 

DETFF 

; CONTINUE WITH EXF'MT . 

3 

54 

2210 

144210 

RDSIZ : 

JMP . 



55 

2211 

060243 


LIO 

D10 


5 fc 

2212 

170051 


J5T 

USMR 

; SIZE NUMBER 

57 

2213 

134412 


ASL 

10. 
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1 

2214 

134013 



ASR 

11 . 



a 

2215 

144210 



JMF 

RB5IZ 



5 

4 

2216 

144216 

MOVLOW: 

JMP 

;ARGS PASSED IN AC.' 10 REGS 


S 

2217 

115763 



SACS 

WANTHI 

; STORE WLD HI 


6 

2220 

i oc 7 



c T oil 

HANTLO 



7 

S 

9 

2221 

164363 



J5T 

MOVWLB 

; MOVE THE DRIVE 


2222 

137603 



L5A 

3 



10 

2223 

040176 



LAC 

CLKTBL+ 

3 ; =10 OCTAL 


11 

2224 

132400 



NOT 




12 

2225 

015772 



ANDS 

RPWD 



13 

2226 

115772 



SACS 

RPWD 



14 

2227 

065772 



LIOS 

RPWD 



15 

2230 

136600 



EX I 

RPLD 

.: STEP POWER OFF 


16 

2231 

144216 



JMP 

MOVLOW 



17 



; 






18 



t 






19 

2232 

144232 

RWENAB: 

JMP 




20 

2233 

137003 



L5A 

3 



21 

2234 

025772 



ORRS 

RPWD 



22 

2235 

115772 



SACS 

RPWD 



23 

2236 

065772 



LIOS 

RFWB 



24 

2237 

136600 



EX I 

RPLD 



25 

2240 

144232 



JMP 

RWENAB ; USAGE REQUIRES 5A=3 ON EXIT 

26 



; 






27 



; 






28 

2241 

006060 

ZER01: 

0 




29 

2242 

000003 

THREE! : 

3 




30 

2243 

000012 

B 10 


10 . 




31 

224 4 

000026 

B 22 


22 . 




32 

2245 

0000 30 

030 


30 




33 

2246 

00064 1 

041 


41 




34 

224 7 

000050 

040 


40. 




35 

2250 

000060 

048 


43. 




36 

2251 

600070 

056 


56. 




37 

2252 

000076 

076 


76 




38 

225 3 

000321 

0209: 

209. 




39 

2254 

010000 

O10K1 : 

10000 



40 



; 






41 

2255 

064000 

LIODLR 

LIOS 

0 



42 



; 






43 



. =2274 





44 



; 






45 



\ 

WAVELENGTH DRIVE - 

MOVE DRIVE OR CHANGE 

P05ITI0N COUNTER 

46 



; 


ENTR 

V POINTS: DWPOS - MOVE DRIVE TO 

SPECIFIED POSN 

47 



; 


DW5TP - MOVE 

DRIVE REV SPECIFIED 

NO OF 5TEP5 

48 



; 



CONTROL 

LOOP CALL FROM CONTROL SEQUENCE 

49 



; 


5MWLD - SET 

SM COUNTER = JR POSN 

COUNTER 

50 



; 


ARGUMENTS: BULB 

= DESIRED POSITION 

(2 WORDS! 

51 



; 



BELT AL 

= DESIRED CHANGE 


5 2 



; 






53 

2274 

144274 

DWPOS : 

JMP . 




54 

2275 

137002 



LSA 

2 



55 

2276 

045740 



LACS 

DELTAL 

; IF DELTAL = 0 AND 

AWLB=DWLD) DONT MOVE 

56 

2277 

130000 



TAZ 


; IS DELTAL ZERO ? 


57 

2300 

144 302 



JMP 

IS 

; YES - NOW SEE IF 

POSN OK 
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1 

2301 

144315 


JKF MOVIT ; 

DELTAL NOT ZERO - MUST MOVE DRIVE 

2 

2302 

055744 

1 $ : 

LANS DWLDLO ; 

CHECK LO 16 BITS FIRST 

3 

2303 

137C03 


L5A 3 


4 

2304 

005762 


ADDS AI4LDLO 


5 

2305 

130000 


TAZ ; 

LO 16 BITS THE SAME ? 

6 

2306 

144310 


JRP 2S ; 

YES - NOW CHECK HI 2 BITS 

7 

2307 

144315 


JMP NOV IT ; 

POSN NOT RIGHT) MUST MOVE IT 

e 

2310 

055761 

£S: 

LANS AWLDHI 


9 

2311 

137002 


L5A 2 


le 

2312 

005743 


ADDS DWLDHI 


n 

2313 

130000 


TAZ ; 

EQUAL ? 

12 

2314 

144274 


JMP BWPOS ; 

DELTAL =0 AND POSN OK) RETURN 

13 




; 

MOVE WLD TO DMLB) WITH FINAL MOTION 

14 

2315 

051322 

MOVIT: 

LAN SLACK 

REVERSE AT LEAST ’SLACK’ STEPS. IF 

13 

2316 

137002 


L5A 2 


16 

2317 

005740 


ADDS DELTAL 

DELTAL > SLACK) MOVE DRIVE TO 'DELTAL 

17 

2320 

130400 


TAN ; 

STEFS FORWARD OF DWLD) THEN MOVE 

18 

2321 

144341 


JMP DELOK ; 

REVERSE 'DELTAL’ STEPS TO DWLD. 

19 

2322 

045740 


LACS DELTAL ; 

IF DELTAL < SLACK) MOVE TO 'DELTAL + 

20 

2323 

001322 


ADD SLACK 

SLACK' STEPS FORWARD OF DWLD) THEN 

21 

2324 

115772 


SACS MT 4 ; 

REVERSE 'SLACK' STEPS) THEN FINALLY 

22 

2325 

132000 


CAC 

REVERSE 'DELTAL' STEPS TO DWLD 

23 

2326 

115771 


SACS MTS 


24 

2327 

045743 


LACS DWLDHI ; 

FIRST TEST DELTAL) IF .LT. SLACK) 

25 

2330 

065744 


LI OS DWLBLO ; 

SET WANT = DWLD + DELTAL + SLACK 

26 

2331 

115767 


SACS MT 1 


27 

2332 

105770 


5IOS MT2 


28 

2333 

165542 


J5T MB FA 


29 

2334 

045771 


LACS MT3 


30 

2335 

065772 


LIOS MT 4 


31 

2336 

115763 


5ACS WANTHI 


32 

2337 

105764 


SIOS WANTLO 


33 

34 

35 

2340 

164363 


J5T MOVWLB 


2341 

045743 

DELOK: 

LACS DWLDHI ; 

NOW SET WANT = DWLD + DELTAL 

36 

2342 

065744 


LIOS DWLBLO 


37 

2343 

115767 


SACS MT 1 


38 

2344 

105770 


SIOS MTS 


39 

2365 

132000 


CAC 


40 

2346 

065740 


LIOS DELTAL 


41 

2347 

115771 


SACS MT3 


42 

2350 

105772 


SIOS HT4 


43 

2351 

165542 


JST MDPA 


44 

2352 

045771 


LACS MT3 


45 

2353 

065772 


LIOS MT 4 


46 

2354 

115763 


SACS WANTHI ; 

STORE IN WANT 

47 

2355 

105764 


SIOS WANTLO 


48 

2356 

164363 


JST MOVWLD ; 

MOVE DRIVE TO ’WANT’ 

49 



; 



50 

2357 

045743 

FINAL: 

LACS DWLDHI 


51 

2360 

065744 


LIOS DWLBLO ; 

SET WANT = DWLD 

52 

2361 

164216 


JST MOVLOW ; 

MOVE WLD ) REDUCE POWER 

53 

2362 

144274 


JMP DWFOS ; 

RETURN 

54 



; 



55 



; 



' 56 

2363 

144363 

kovwld: 

JMP . 

MOVE DRIVE FROM AWLD TO WANT 

57 

2364 

137003 


L5A 3 ; 

CALCULATE DOWN = AWLD - WANT 
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1 

2365 

048761 


LAC I- AWLDHI 

; OR WANT - AWLD.' 50 THAT DOWN IS 

2 

2366 

065762 


LIDS AWLDLO 

; POSITIVE 

3 

2367 

137002 


L5A 2 


4 

2370 

115767 


SAC 5 MT1 


5 

2371 

105770 


5105 MT2 


6 

2372 

045763 


LACS UANTHI 


7 

2373 

065764 


LIOS WANTLO 


8 

2374 

115771 


SAC $ MT3 


9 

2375 

105772 


5105 M74 


10 

2376 

165572 


J5T MDPS 


11 

2377 

050173 


LAN ONE 1 

; DIRECTION WAS ASSUMED REVERSE 

12 

2400 

115765 


SACS- DIRECT 


13 

2401 

045772 


LACS MT4 

; SEE IF DOWN IS ZERO 

14 

2402 

025771 


ORRS MT3 

; INCLUDE HI PART 

15 

2403 

130000 


TAZ 


16 

2404 

144566 


JMP NOMOV 

; YES - EXIT MOVWLD 

17 



; 



18 

2405 

137003 

RUNWLD- 

LSA 3 


19 

2406 

045772 


LACS RPWD 


3 fit 

2407 

212176 


AND CLKTBL+3 

— n-* /*, 

21 

2410 

1 34002 


A5R 2 


£2 

2411 

115776 


SACS TEMPJ 

; CONDITIONAL JUMP INDEX 

23 

2412 

075776 


LINS TEMPJ 


24 

2413 

040176 


LAC CLKTBL+3 

; = 010 

25 

2414 

164232 


J5T RWENAB 

; STEP PWR ON 

26 




; 


27 

£415 

146416 


JMP I 1$ 


£8 

2416 

041475 

15: 

LAC UND420 

; CONDITIONAL EXECUTION 

29 

2417 

170360 


JST UWTX 

; WAIT 20 MS 

30 

2420 

137002 


LSA 2 


31 

2421 

045771 


LACS MT3 

; NOW SEE IF DOWN IS + 

32 

2422 

130400 


TAN 


33 

2423 

144427 


JMP 2S 

; YES - DIRECTION IS REV 

34 

2424 

040173 


LAC ONE 1 

; FWBj NEGATE DOWN 

35 

2425 

115765 


SACS DIRECT 


36 

2426 

165625 


JST HDFNOT 


37 

£427 

045771 

25: 

LACS MT3 

; STORE DOWN 

3e 

2430 

065772 


LI OS MT4 


39 

2431 

115711 


SACS DGWNHI 


40 

2432 

105776 


510$ DOWNLO 


41 

2433 

045765 


LACS DIRECT 

; LOAD STEP COMMANDS ACCORDING TO DIREC 

42 

2434 

1 30400 


TAN 


43 

2435 

144441 


JMP 3$ 

; FWD 

44 

2436 

1 36642 


EX I SLUR 

; SET REVERSE 

45 

2437 

051370 


LAN STEPR 


46 

2440 

144443 


JMP 4$ 


47 

2441 

136641 

3$: 

EX I SLWF 

; SET FORWARD 

48 

2442 

051367 


LAN STEPF 


49 

2443 

164607 

45: 

JST LDCMD 


50 

2444 

1 37003 


LSA 3 

; MOVE AWLD TO MT3/4 

51 

2445 

045761 


LACS AWLDHI 


52 

2446 

065762 


LIOS AWLDLO 


53 

2447 

137002 


LSA 2 


54 

2450 

115771 


SACS MT3 


55 

2451 

105772 


5 1 0 S MT 4 


56 

2452 

065765 


LIOS DIRECT 

; MOVE DIRECT TO MT1/2 FOR UPDATING 

57 

245 3 

045765 


LACS DIRECT 

; AWLD AFTER EACH STEP 
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1 

2454 

1 304 00 

TAN 

; IF LO BYTE .LT.0, HI BYTE MU5T BE 

2 

2455 

132000 

CAC 

-X! AND ZERO IF LO BYTE .GT. 0 

3 

2456 

115767 

SACS MT1 


4 

2457 

105770 

5105 MT2 


5 

2460 

070241 

LIN ZER01 

; INDEX INITIAL FREQUENCY 

6 

2461 

136403 

EX I FANS 

; DISABLE L3 INTERRUPTS 

7 

2462 

063323 

LIOI RGTG 


8 

2463 

136710 

EX I TELD 


9 

2464 

136714 

EXI T3LD 


10 

2465 

061 364 

LID GTGWAV 

; .0625 M5 AUTO STEP/SYNC 101 

11 

2466 

136711 

EXI CELD 


12 

2467 

060246 

LIO 041 

; SET SAME FOR GT3- NO STEP 

13 

2470 

136715 

EXI C3LD 


14 

2471 

04 3336 

LACI RCOUNT 

; GET NUMBER OF STEFS FOR THIS SPEED 

IS 

2472 

115766 

SACS 5C0UNT 


16 



; 


17- 

2473 

164666 

5TEP1 •' J5T POLL ; POLL 

INTERRUPTS FOR MEASURED INTERVAL 

18 

2474 

045752 

LACS D50LD 

-•THIS STEP USES OLD NULL DATA 

19 

2475 

115751 

SACS ['SLAT 


20 

2476 

164724 

J5T YE5STP 

; DO STEP ACCOUNTING 

21 

2477 

035776 

[MBS BGWNLG 

;BEC DOWN COUNT... TST IF DONE 

22 

2500 

144521 

JMP L00P2B 

;NOT DONE. CONTIN 

23 

2501 

045711 

LACS BOWNHI 

; COULD EE DONE... TST HI COUNT 

24 

2502 

130000 

TAZ 


25 

2503 

144556 

JMP THERE 

;.BQNE NOW 

26 

2504 

144516 

JMP L00P2A 

;not done, continue with ramp 

27 



; 


28 

2505 

115766 

LOOP 1 : 5ACS 5C0UNT 


29 

2506 

164572 

LOOPS: J5T BNCHEK 

; ANY STEFS AT THIS SFEED? 

30 

2507 

063323 

LIOI RGTG 

; YES - LOAD TIME REGISTER 

31 

2510 

136710 

EXI TELD 


33 

2511 

136714 

EXI T3LD 


33 

2512 

164666 

JST POLL 

' 

34 

2513 

164724 

JST YE55TP 


35 

2514 

0 36 / 76 

BMSs DOWN LO 

- iic-L n'c.nh. 1 , i BuWN 

36 

2515 

144521 

JMP L00P2B 


37 

2516 

035711 

L00P2A : DM5 $ BOWNHI 

; DECREMENT OF HIGH WORD DONE 1 EARLY 

38 

2517 

144507 

JMP L00P2+1 

; FOR EASE OF PROGRAMMING 

39 

2520 

144507 

JMP L00P2+1 


40 

2521 

035766 

L0QP23: DM5S 5C0UNT 


41 

2522 

144506 

JMP L00F2 

; SEE IP 5H0ULD RAMP DOWN YET 

42 

2523 

137401 

BIN 

; INCREMENT INDEX TO NEXT SPEED 

43 

2524 

043336 

LACI RCOUNT 

; SEE IF NEXT SPEED IS TOP SFEED 

44 

2525 

1 30400 

TAN 


45 

2526 

144505 

JMP LOOP 1 

; NO - STILL ACCELERATING 

46 



; 


47 

2527 

164572 

L00P3 : JST BNCHEK 

TOP SPEED REACHED - GO AT THIS RATE 

48 

25 30 

063323 

L’lOI RGTG 

; UNTIL TIME TO START SLOWING DOWN 

49 

2531 

136710 

EXI TELD 


50 

2532 

136714 

EXI T3LD 


51 

2533 

164666 

JST POLL 


52 

2534 

164724 

JST YES5TP 


53 

25 35 

035776 

DM5S DOWNLO 

; DECREMENT DOWN AS BEFORE 

54 

2536 

144527 

JMP LOOP 3 

; DO MORE STEPS 

55 

2537 

035711 

DM5S BOWNHI 


56 

2540 

144530 

JMP L00P3+1 


57 

2541 

144530 

JMP L00P3+1 
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1 


a 

2542 

137404 

L00P4: 

TIN 

3 

3543 

144545 


JNP 15 

4 

3544 

144547 


JMF 25 

5 

35 4 5 

137402 

If-: 

DIN 

6 

3546 

144530 


JMP LOOP 3+ 1 

7 

3547 

861323 

25: 

LIO RGTG 

8 

assB 

136718 


EX I T ELD 

9 

assi 

136714 


EXI T3LD 

18 

ass2 

164666 


J5T POLL 

11 

ass3 

164724 


J5T YE55TP 

ia 

ass4 

835776 


DM55 DOWNLO 

13 

asss 

1 445 47 


JMP 25 

14 



i 


IS 

2556 

868173 

THERE: 

LIO ONE 1 

16 

3557 

136711 


EXI C2LD 

17 

3568 

136715 


EXI C3LB 

18 

2561 

165873 


J5T GTBUSY 

19 

3563 

848254 


LAC O10K1 

3 r\ 


i ~f r* -s l m 


TCT III.ITV 


>— -s w 

A / X' _• •_) «-) 



a i 

2564 

1 3644 0 


EXI RD5 

aa 

2S6S 

18S752 


5105 D50LD 

33 

2566 

165183 

NOMOV: 

J5T 5MWLD 

24 

3567 

161641 


J5T B5YCLR 

as 

SS7B 

137882 


L5A 2 

36 

2571 

144363 


JMF MQVWLD 

a7 



; 


as 

2572 

144572 

DNC HEK : 

JMP . 

39 

2573 

845711 


LACS DOWNHI 

38 

2574 

138888 


TAZ 

31 

a575 

144577 


JMP 15 

3 a 

E576 

144572 


JMP DNCHEK 

33 

2577 

855776 

15: 

LANS DOWNLO 

34 

3688 

130488 


TAN 

35 

2681 

144572 


JMP DNC HEK 

36 

E682 

053351 


LANI RAMP 

37 

2683 

885776 


ADDS DOWNLO 

38 

2684 

130488 


TAN 

39 

2685 

144572 


JMP DNC HEK 

48 

2686 

144542 


JMP L00P4 

41 



; 


43 

2687 

144687 

LBCMB: 

JMP . ; SET 

43 

2618 

885258 


ADDS CMD 

44 

2611 

1 30808 


TAZ 

45 

2612 

144607 


JMP LDCMD 

46 

2613 

045258 


LAC $ CMD 

47 

2614 

865252 


LI 05 XCMD 

48 

2615 

105250 


5105 CMD 

49 

2616 

115252 


SACS XCMD 

SB 

2617 

845745 


LACS PRIOR 

51 

2628 

130408 


TAN 

53 

2621 

144650 


JMP LDNUL 

53 

2622 

055750 


LANI MOTOR 

54 

2623 

000251 


ADD D56 

55 

2624 

115750 


SACS MOTOR 

56 

2625 

045746 

RENULL: 

: LAC I NULLHI 

57 

2 62 6 

065747 


LI05 NULLLO 


i 2 = 82 



PAGE 38 


RAMP DOWN 

IF INDEX IS 8 DR !.• FINISH REST DF 
STEFS AT 188 HZ 

STILL AT INTERMEDIATE SPEED 

LOAD LOWEST SPEED 


STEF UNTIL DOWN GOES TO ZERO 


DOWN = 8. STOP GTG AFTER REGULAR 
STEP INTERVAL.. NO RESTART 

RETURN TO INTRPT SERVICING 
DO 280 MS WAIT 

GET NULL FROM DIR STAT 
SAVE NULL FOR NEXT MOVE 
SET HARDWARE F05N COUNT TO AWLD 
ON WITH La INTRPTS 

RETURN 

IF DOWN . LT . RAMP (I).. GO TO L00F4 
ELSE.. RETURN 

IF DOWN ) 65j 535; IS AL50 ) RAMP 


IF DOWN > 32) 767) IS ALSO ) RAMP 
SO RETURN TO ADDR + a 

CALCULATE DOWN - RAMP 

IF POSITIVE) DOWN > RAMP AND RETURN 
TO ADDR + E 


STEF COMMAND 

SEE IF SAME AS LAST DIRECTION 
YES - RETURN 

STORE CHANGE OF DIRECTION 

MOVE CMC TO XCMD AND XCMD TO CMD 


SEE IF LAST STEP WA5 NULL 
YES 

SET MOTOR AND NULL SO THAT DRIVE 
APPEARS TO HAVE COME FROM NEW DIRECTIO 

CALCULATE POSN OF VIRTUAL NULL 

IE) ADD 4B TO NULL IF NEW DIRECTION IS 
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1 

2657 

115767 


SAC 5 MT1 

; REVERSE, AND SUBTRACT 48 IF NEW IS FWB 

5 

2630 

105770 


5105 MT2 


3 

2631 

132000 


CAC 


4 

2632 

060250 


LIO BAB 


5 

2633 

115771 


SAC 5 MT3 


6 

2634 

105772 


5105 MT4 


7 

2635 

045765 


LAC 5 DIRECT 

; TEST DIRECTION 

8 

2636 

130400 


TAN 


9 

2637 

144642 


JMP 15 


10 

2640 

165542 


J5T MBPA 

; REVERSE, SO ADD 43 

11 

2641 

144643 


JMP 25 


15 

2642 

165572 

1*: 

J5T MBPS 

; FORWARD, SO SUBTRACT 

13 

2643 

045771 

25 : 

LACS MT3 


14 

2644 

065772 


LI05 MT4 


15 

2645 

115746 


SACS NULLHI 

; REPLACE LAST NULL WITH VIRTUAL NULL 

16 

2646 

105747 


5105 NULLLO 


17 

2647 

144607 


JMP LBCMD 


18 

2650 

045752 

LBNUL : 

LACS B50LB 

; LAST STEP WAS NULL, SEE ABOUT THIS 

19 

2651 

135001 


R5R 1 

; GET NULL FROM DIRECT STATUS 

50 

2652 

130400 


TAN 

; SET 7 

51 

265 3 

144660 


JMP 15 

; NO 

25 

2654 

055750 


LANS MOTOR 

; YES - MULTIPLE NULL, STORED NULL 15 OK 

23 

2655 

000244 


ADD B22 

; RESET NULL COUNTER 

24 

2656 

115750 


SAC 5 MOTOR 


25 

265 7 

144607 


JMP LBCMB 

; RETURN 

26 

2660 

055750 

15: 

LANS MOTOR 

; TURNING JU5T BEYOND NULL 

57 

2661 

005621 


ADDS TW0D15 

; FOOL MOTOR INTO THINKING IT IS COMING 

28 

2662 

115750 


5AC 5 MOTOR 

; FROM CURRENT DIRECTION 

29 

2663 

050173 


LAN 0NE1 

; BACK TO NULL FROM NOT— NULLS 

30 

2664 

115745 


SACS PRIOR 


31 

32 

33 

2665 

144625 


JMP RENULL 

CALCULATE P05N OF VIRTUAL NULL 

2666 

144666 

POLL: 

JMP . 

; UPDATE AWLD AT EOGT AND CHECK NULLS 

34 

2667 

050715 


LAN ACCTP 

; CODE TIME - 2 - 16 

35 

2670 

003323 


ADDI RGTG 

; FIND FREE TIME TO NEXT STEP 

36 

267 1 

115774 

5ETFR : 

SACS MT 6 


i 7 

267 2 

136145 


EXP IbFC 

; POLL it- MS CLK 

38 

267 3 

144717 


JMF BGMI 


39 

2674 

126141 


EXR imi 

; POLL 64 MS CLK 

40 

2675 

144721 


JMP DM IF 


41 



; 



42 

2676 

050716 


LAN LUPTIC 

; MINUS CLOCK TICKS PER PASS 

43 

2677 

005774 


ABBS MT 6 

; TEST IF TIME REMAINS 

44 

2700 

130400 


TAN 


45 

2701 

144671 


JMP SETFR 


46 



; 



47 

2702 

1 32O0O 

SAMPLT 

: CAC 


48 

2703 

136440 

11.: 

EX I RBS 

; DIRECT 5TATU5 FOR NULL 

49 

2704 

105774 


SIOS MT 6 


50 

2705 

025774 


ORRS MT 6 

; COMBINE NULL SIGNAL 

51 

2706 

136322 


EXR I PC2 

; TEST IF STEP MADE 

52 

2707 

144713 


JMP 21 


53 

271 0 

136323 


EXR I PC 3 

; BACKUP CLOCK TEST 

54 

2711 

144713 


JMP 25 


55 

2712 

144703 


JMP IS 

; NO STEP YET 

56 

2713 

115751 

25: 

SACS DSLAT 

; SAVE NULL EIT 

57 

2714 

144666 


JMP POLL 

; NO LIMITS 


ORIGINAL "PAGE ' m 
OF POOR QUALITY 
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1 

2 

2715 

000037 

ACC TP : 

31. ; CLOCK 

PERIODS USED BETWEEN STEPS - £ 

3 

2716 

000007 

LUPTIC- 

7. ; CLOCK 

PERIODS PER LOOP PASS (APROX) 

4 

2717 

170317 

DQM I : 

JST GMIFRM 



5 

2720 

144702 


JMP SAMPLT 



6 

7 

2721 

170301 

DMTF: JST MIFRM 



8 

2782 

137O02 


LSA 2 



9 

2723 

144702 


JMP SAMPLT 



J Vi 
11 

2724 

144724 

YES 5 TP’ 

JMP ; THIS USED IN PLACE OF STEP ROUTINE 

12 

2725 

136322 


EXR IPC2 


CLEAR OTHER GT LATCH 

13 

2726 

144727 


JMP .41 



14 

2727 

136323 


EXR IPC 3 


DO IT >96 MICROSEC AFTER 

15 

2730 

144731 


JMP .+1 


RECOGNIZED GATE END 

16 

2731 

045751 


LACS DSLAT 

; SEi 

5 IF NULL WAS SET 

17 

2732 

010245 


AND 030 

SEE 

IF A LIMIT SET 

18 

2733 

130000 


TAZ 



1 9 

2734 

144736 


JMP IS 



20 
3 J 

2735 

151206 


JMP LIMCHK 

; FOUND LIMIT 

C 1 
22 

2736 

045751 

1$: LACS P5LAT 



23 

2737 

010173 


AND ONE1 

; SEE IF NULL WAS SET 

24 

2740 

130000 


TAZ 

; SKIP IF NULL SET 

25 

2741 

144762 


JMP NONULL 



26 



; 




27 

2742 

005745 


ADDS PRIOR 


PRIOR: o = LAST STEP WAS NULL 

88 

2743 

130000 


TAZ 


-1 = LAST STEP WAS NOT -NULL 

29 

2744 

144751 


JMP 5TEP0K 


HAVE NULL AFTER NOT-NULL - VERY GOOD 

30 

2745 

035750 


DM5S MOTOR 


NULL AFTER NULL - DECREMENT COUNT 

31 

2746 

144775 


JMP END5TP 


STILL OK 

32 

2747 

165073 


JST GTEUSY 


SET BUSY SO NEW SCI'S WILL WAIT 

33 

275 0 

145021 


JMP HELP4 


DRIVE STUCK ON NULL 

34 



; 




35 

2751 

045771 

5TEP0K : 

LACS MT3 


NULL AFTER NOT-NULL / DRIVE OK 

36 

2752 

065772 


LIOS MT4 


COPY WORKING STORE OF AULD INTO 

37 

275 3 

115746 


SACS NULLHI 


AWLD AND STORE PQ5N OF THIS NULL 

33 

2754 

105747 


SIOS NULLLO 



39 

2755 

132000 


CAC 


SET PRIOR = 0 = LAST WAS NULL 

40 

2756 

115745 


SACS PRIOR 



41 

2757 

040243 


LAC D10 


ALLOW 10 NULLS IN A ROW 

42 

2760 

115750 


SACS MOTOR 



43 

2761 

144775 


JMP END5TP 



44 



; 




45 

2762 

005745 

NONULL : 

ADDS PRIOR 


THIS STEP NOT-NULL 

46 

2763 

130000 


TAZ 


CHECK PREVIOUS STEP 

47 

2764 

144771 


JMP STEPAl 


HAVE NOT-NULL AFTER NULL - GOOD 

48 

2765 

035750 


DMSS MOTOR 


NOTNULL AFTER NOTNULL - DECREMENT COU 

49 

2766 

144775 


JMP END5TP 


STILL OK 

50 

2767 

165073 


JST GTBUSY 


SET BUSY SO NEW SCI'S WILL WAIT 

51 

C P 

2770 

145027 


JMP HELPS 


MOTOR STUCK ON NOT-NULL 

53 

2771 

045750 

STEPAl: 

LACS MOTOR 


NOT-NULL AFTER NULL/ GOOD 

54 

2772 

000247 


ADD D40 


ALLOW 50 STEPS BETWEEN NULLS 

55 

2773 

115750 


SACS MOTOR 



/ 56 

2774 

035745 


DMSS PRIOR 


SET PRIOR = -1 = NOT-NULL 

57 

2775 

045770 

ENDSTP: 

LACS MT2 


ADD DIRECT TO AWLD AND REPLACE AWLD 
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1 

2776 

005772 


ADDS MT 4 

2 

2777 

115772 


SACS MT 4 

3 

3000 

130000 


TAZ 

4 

3001 

145007 


JMP IS 

5 

3002 

000173 


ADD ONEi 

6 

3003 

130000 


TAZ 

7 

3004 

145010 


JMP 2S 

8 

3005 

045771 


LACS MT3 

9 

3006 

145013 


JMP 35 

10 

3007 

000173 

IS: 

ADD 0NE1 

11 

3010 

005771 

2S : 

ADDS MT3 

12 

3011 

005767 


ADDS MT 1 

13 

3012 

115771 


SACS MT3 

14 

3013 

065772 

3S : 

LIOS MT 4 

15 

3014 

137003 


LSA 3 

16 

3015 

115761 


SACS AWLDHI 

17 

3016 

105762 


SI OS AWLDLO 

18 

3017 

137002 


LSA 2 

19 

3020 

144724 


JMP YESSTP 

20 



; 


21 

3021 

060173 

HELP4 : 

LIO 0NE1 

22 

3022 

136711 


EXI C2LD 

23 

3023 

136715 


exi C3ld 

24 

3024 

061365 


LIO WMSG4 

25 

3025 

171353 


JST U5MSG 

26 

3026 

145052 


JMP SETNUL 

27 



; 


28 

3027 

060173 

HELPS: 

LIO ONEi 

29 

3030 

136711 


EX I C2LD 

30 

3031 

136715 


EXI C3LD 

31 

3032 

061366 


LIO WMSG5 

32 

3033 

171353 


JST U5M5G 

33 

3034 

040175 


LAC F0UR1 

34 

3035 

115750 


SACS MOTOR 

35 

3036 

170371 


JST UWTONE 

36 

3037 

035750 

LOuPF: 

DMSS MOTOR 

37 

3040 

151252 


JMP XCMD 

38 

3041 

151252 


JMP XCMD 

39 

3042 

041475 

RECOVR: 

LAC UND420 

40 

3043 

170360 


JST UWTX 

41 

3044 

136440 


EXI RDS 

42 

3045 

105752 


SIOS D50LP 

43 

3046 

045752 


LACS DSOLD 

44 

3047 

010173 


AND ONEI 

45 

3050 

130000 


TAZ 

46 

3051 

145375 


JMP LIMIT1 

47 



; 


48 

3052 

055750 

5ETNUL: 

LANS MOTOR 

49 

305 3 

1 30400 


TAN 

50 

305 4 

145057 


JMP IS 

51 

3055 

055252 


LANS XCMD 

52 

3056 

164607 


JST LDCMD 

53 

305 7 

040243 

IS: 

LAC D10 

54 

3060 

115750 


SACS MOTOR 

55 

3061 

132000 


CAC 

56 

3062 

115745 


SACS PRIOR 

57 

3063 

045746 


LACS NULLHI 


MT2 IS DIRECT, MT 4 IS L5 16 BITS OP A 
AWLD. ADD THEM FIRST; THEN TEST RESULT 
IF ZERO, MT3=MT3+MT 1+1 

IF MINUS 1, MT 3=MT 3 + MT 1 


; OTHERWISE, MT3=MT3 


; STORE MT 3/4 INTO AWLD 


; STEP DATA WAS GOOD — RETURN 

; DRIVE STUCK ON NULL 
; STOP SENDING COMMANDS 
; STOP BACKUP GTG 
; OUTPUT MSG = 133334 

; SET AWLD = LAST NULL POSN AND RETRY 

; DRIVE STUCK OFF NULL 
; STOP SENDING STEP COMMANDS 

; OUTPUT MSG = 133335 

; SET STEP COUNTER 

; WAIT 1 SEC BEFORE CHANGING DIRECTION 
; STEP IN OTHER DIRECTION AT 50 HZ 
; UNTIL NULL, KEEP TRACK OF CLOCKS 
; DECREMENT STEP COUNT FOR EACH STEP 
; WAIT 20 MS 

; CHECK NULL 


SET ? 

NO - AND MAKE SURE NULL WITHIN 300 STEPS 

IF MOTOR .GT. ZERO, DIDNT HAVE TO STEP 
FAR BACK TO NULL - ASSUME NULL MISSED 
RATHER THAN DRIVE STUCK 
SO SET LAST NULL 43 STEPS NEARER 


; NULL - SET AWLD = LAST NULL 
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1 

3064 

065747 



LI05 NULLLO 


3 

3065 

137003 



LSA 3 


3 

3066 

115761 



SAC 5 AWLDHI 


4 

3067 

105763 



5105 AWLDLO 


S 

3070 

161641 



JST BSYCLR 

RECOVERY COMPLETE* CLEAR BUSY 

L 

3071 

* ■r.n -a*?-* 

HEL 

PER 

TCT IIMTHMC 

v -t t uti i unw 

l.l A TV 
.in i : 

7 

a 

3073 

144364 



JMP MQVWLD+i 

TRY AGAIN TO GET TO 'WANT' 

o 

9 

3073 

145073 

GT8U5Y: 

JMP . ; SET BU5Y TO NEG 50 NO NEW SCI COMMAND 

10 

3074 

137003 



LSA 3 

WILL BE PROCESSED UNTIL ERROR IS 

11 

3075 

045777 



LACS B3VGN 

RECOVERED 

ia 

3076 

031350 



ORR RAMP-1 

SIGN BIT USED AS FLAG 

13 

3077 

1.15777 



SACS E5YGN 


14 

3100 

137003 



LSA 3 


15 

3101 

133400 



CIL 


16 

3103 

145073 



JMP GTBUSY 

RETURN 

17 



; 




13 

3103 

145103 

5MWLD : 

JMP 


19 

3104 

137003 

RECHEK: 

LSA 3 ; SET HA 

3DWARE COUNTER = AWLD 

ao 

3105 

045761 



LACS AULDHI 

STORE AWLD IN MT1/3 

ai 

3106 

065763 



LIDS AWLDLO 


aa 

3107 

137003 



LSA 3 


33 

3110 

115767 



SACS MT1 


34 

3111 

105770 



5I0S MT3 


as 

3113 

165176 



JST SMPOSN 

LOAD COUNTER INTO MT3/4 

36 

3113 

165573 



JST MBPS 

CALCULATE AWLD - COUNTER 

37 

3114 

045771 



LACS MT3 

SEE IF EQUAL 

38 

3115 

005773 



ADDS MT4 


39 

3116 

130000 



TAZ 

EQUAL ? 

30 

3117 

145103 



JMP 5MWLD 

YES - RETURN 

31 

3130 

060173 



LIO 0NE1 

ASSUME CHANGE FWD 

33 

3131 

105765 



SIOS DIRECT 


33 

3133 

045771 



LACS MT3 


34 

3133 

130400 



TAN 

IS IT FORWARD ? 

35 

3134 

145130 



JMP IS 

YES 

36 

3135 

165635 



J5T MDPNOT 

NO - NEGATE CHANGE AND REVERSE DIRECTI 

37 

3136 

055765 



LANS DIRECT 


33 

3137 

115765 



5 ACS DIRECT 


39 



; 




40 

3130 

075771 

1*: 

LINS MT3 ; SEE HOW EIG CHANGE IS 

41 

3131 

147133 



JMP I .+1 


43 

3133 

145150 



JMP 6$ 

CLOSE AND IN DIRECTION SET 

43 

3133 

145136 



JMP as 

FAR IN DIRECTION SET 

44 

3134 

145141 



JMP 3S 

FAR IN OPPOSITE DIRECTION 

45 

3135 

145144 



JMP 4$ 

NEAR IN OPPOSITE DIRECTION 

46 



; 




47 

3136 

050173 

a-*: 


LAN 0NE.1 

FAR IN DIRECTION SET 

43 

3137 

115773 



SACS MT4 

SET MT4 = MAX 

49 

3140 

145150 



JMP 6S 


50 



; 




51 

3141 

050173 

35: 


LAN ONE 1 

FAR IN OPPOSITE DIRECTION 

53 

3143 

115773 



SACS MT4 

SET MT 4 = MAX AND CHANGE DIRECTION 

53 

3143 

145146 



JMP 5 S 


54 



; 




55 

3144 

055773 

4$: 


LANS MT4 

NEAR IN OPPOSITE DIRECTION 

' 56 

3145 

115773 



SACS MT 4 

NEGATE CHANGE SIZE 

57 

3i46 

055765 

55: 


LANS DIRECT 

CHANGE DIRECTION 
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1 

p 

3147 

115765 


SACS DIRECT 


c 

3 

3150 

136641 

6$: 

EKI SLWF 

SET DIRECTION FWD 

4 

3151 

G55765 


LANS DIRECT 


5 

3152 

130400 


TAN 

CHANGE TO REV IF DIRECT = -1 

6 

3153 

136642 


t'KI SLUR 


7 

3154 

170401 


JST GETS 

STORE LO 8 BITS OF START POSN 

a 

3155 

115763 


SACS OLD 


9 

3156 

045772 


LACS MT4 

MAGNITUDE OF CHANGE IN MT4 

io 

3157 

134010 


ASR 9. 

PULL OUT HI 8 BITS 

li 

3160 

115771 


SACS HT3 


12 

3161 

065771 


LIOS [IT 3 


13 

3162 

136643 


EMI LM5H 

LOAD THEM IN M5H 

14 

3163 

065772 


LIDS MT4 

LOAD LO 8 BITS IN LSH 

15 

3164 

136654 


exi wavi 

AND INITIATE CHANGE 

16 



; 



17 

3165 

170401 

LOOPW: 

JST GET3 ; POSN CHANGES EVERY . 0625 MICRO SEC 

IS 

3166 

115774 


SACS MT6 


19 

3167 

055763 


LANS OLD 

FINISHED WHEN NO MORE CHANGE 

20 

3170 

005774 


ADDS MT6 


21 

3171 

130000 


TAZ 

CHANGED ? 

22 

3172 

145104 


JMP RECHEK 

NO - NOW CHECK POSITION 

23 

3173 

045774 


LACS HT6 

STILL CHANGING - UPDATE OLD 

24 

3174 

115763 


SACS OLD 


25 

3175 

145165 


JMP LOOPW 

CHECK AGAIN 

26 



; 



27 

3176 

145176 

SflPOSN: 

JMP . ; READ SM COUNTER INTO MT3/4 

28 

3177 

170401 


JSI GET 8 

GET LS 8 BITS FROM DS 

29 

3200 

115772 


SACS MT4 

STORE IN MT 4 

30 

3201 

065617 


LIOS NINE2 

BITS 13-9 ARE IN SM CHAN 9 

31 

3202 

170051 


JST U5MR 


32 

3203 

1 15771 


CAft MJ3 

CTflpr TM MT3 

33 

3204 

i 344i0 


ASL 3. 

MOVE BITS 16-9 TO POSNS 16-9 

34 

3205 

025772 


ORRS MT4 

INSERT INTO MT4 

35 

3206 

115772 


SACS MT 4 

STORE IN MT4 

36 

3207 

045771 


LACS MT3 

GET MTS 

37 

3210 

134010 


ASR 8. 

MOVE TO POSNS 2-1 

33 

321 1 

010242 


AND THREE1 

MASK THEM 

39 

3212 

115771 


SACS MT3 

STORE 

40 

3213 

145176. 


JMP SMPOSN 

RETURN 

41 



; 



42 

3214 

165073 

LIMITA: 

JST GTBUSY 

SET BUSY SO NEW SCT'S WILL WAIT 

43 

3215 

171425 


JST UERROR 

RECORD ERROR 

44 

3216 

041371 


LAC AHI 

SET AWLD TO AHI /ALO 

45 

3217 

061372 


LIO ALO 


46 

3220 

137003 


L5 A 3 


47 

3221 

115761 


SACS AWLDHI 


48 

3222 

105762 


5103 AWLDLO 


49 

3223 

051370 


LAN STEPR 

STEP REVERSE FROM LIMIT 

50 

51 

52 

3224 

145235 


JMP AWAY 


3225 

165073 

limitb 

JST GTBUSY 

SET BUSY SO NEW SC I ' S WILL WAIT 

53 

3226 

171425 


JST UERROR 

RECORD ERROR 

54 

3227 

041373 


LAC BHI 

SET AULD TO EHI/BLO 

55 

3230 

061374 


LlO BLO 


56 

3231 

137003 


L5A 3 


57 

3232 

115761 


SACS AWLDHI 
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1 

333? 

105762 


5IOS AWLDLO 

a 

3234 

051367 


LAN 5TEPF 

3 

4 

3335 

137002 

AWAY : 

LSA 2 

5 

3336 

164607 


JST LDCMD 

6 

3237 

041245 


LAC LSRET 1 

7 

3240 

115251 


SACS CMD+1 

8 

3341 

040175 


LAC FOURi 

9 

3342 

115773 


SAC I MTS 

10 

3343 

170371 


JST UWTONE 

11 

3244 

151250 


JMP CMD 

ia 

3245 

145546 

LSRET 1 : 

JMP .+1 

13 

3246 

170371 


JST UWTONE 

14 

3247 

035773 


DM5I MTS 

15 

3350 

151250 


JMP CMD 

16 

3351 

041253 


LAC L5RET2 

17 

3253 

115251 


SACS CMD+1 

18 

335 3 

145254 

LSRET2: 

JMP .+1 

19 

3254 

040253 


LAC D209 

30 

325S 

170360 


1ST UWTX 

£1 

3256 

1 36440 


EXI RDS 

aa 

3257 

105773 


SICS MTS 

as 

3260 

045773 


LACS MTS 

a4 

3261 

1340O3 


ASR 3 

as 

3262 

010343 


AND THREE1 

56 

3263 

130000 


TAZ 

27 

3264 

145266 


JMP . +2 

a a 

3265 

145404 


JMP LIMIT2 

a? 

3266 

041370 


LAC L3RET3 

30 

3267 

115251 


SACS CMD+1 

31 

32 

3270 

143271 

LSRET3: 

JMP . +1 

33 

3271 

170371 


JST UWTONE 

34 

3272 

136440 


EXI RDS 

35 

3273 

1CS752 


5 I Of DSOLB 

36 

3274 

04=752 


LACS DSOLD 

37 

3275 

135001 


RSR 1 

33 

3276 

130400 


TAN 

39 

3277 

145416 


JMP LIMITS 

40 

41 

3300 

137003 

OUT: LSA 3 

45 

3301 

045761 


LACS AWLDHI 

43 

3302 

065762 


LI OS AWLDLO 

44 

3303 

137002 


LSA 2 

45 

3304 

115746 


SACS NULLHI 

46 

3305 

105747 


5105 NULLLO 

47 

3306 

040243 


LAC D10 

48 

3307 

115750 


SACS MOTOR 

49 

3310 

132000 


CAC 

50 

3311 

115745 


SACS PRIOR 

51 

3312 

165103 


JST SMWLD 

55 

3313 

136250 


EXR ILTA 

53 

3314 

134P0O 


NOP 

54 

3315 

136251 


EXR ILTB 

55 

3316 

134000 


NOP 

56 

331? 

161641 


JST ESYCLR 

57 

3320 

160012 


JST HALT 


STEP FORWARD FROM LIMIT 


SET UP DIRECTION 

SET UP RETURN FROM ' CMD ' 

REPHASE MOTOR BY STEPPING 4 AT i HZ 

INITIAL WAIT OF i SEC 
SEND STEP COMMAND 
RETURN TO HERE 
WAIT i SEC 
DONE 4 ? 

NO - DO ANOTHER 

NOW MOVE AT 100 HZ AWAY UNTIL 

LIMIT SWITCH GOES OFF 

WAIT 10 MS 

READ LIMIT SWITCHES 


THEY ARE BITS 4-5 

STILL SET ? 

NO 

YES - MAKE SURE .LT. 5000 STEPS OUT OF LIMIT 
NOW FIND NEXT NULL 


STEP AT 1 HZ TO NULL 


SEE IF NULL SET 


NO - BE SURE NULL WITHIN 300 STEPS 


SET LAST NULL = AWLD 


ALLOW 10 NULLS 

SET PRIOR = NULL 

SET WLD POSN COUNTER TO AWLD 
CLEAR LIMIT SWITCH INTERRUPTS 


RECOVERY COMPLETE* CLEAR BUSY 
HALT EXPERIMENT OR SET UR 
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1 

a 

3351 

140260 


JMP POWRUP 

; WAIT FOR NEMT LEVEL2 

3 

4 

3325 

000005 

SLACK: 

5 


; 5TEP5 TO TAKE UP SLACK 

5 

3353 

000536 

RGTG : 

153. 

100 

HZ LIST OF TIME VALUES FOR RAMP UP 

6 

3 354 

000236 


153. 

; 

** UNIFORM 1 00— HZ STEPPING RATE... +* 

7 



; +* 

90. 

174 

HZ REVERSE ORDER 15 RAMP DOWN 

8 

3355 

000101 


65 . 

239 

HZ LIST CAN EE ANY LENGTH 

9 

3326 

000065 


53. 

291 

HZ 

10 

3327 

000055 


45 . 

340 

HZ 

11 

3330 

000050 


40 . 

381 

HZ 

15 

3331 

000044 


36. 

421 

HZ 

13 

3332 

000042 


34. 

444 

HZ 

14 

3333 

000040 


32. 

471 

HZ 

15 

3 334 

000037 


3i . 

485 

HZ 

16 

3335 

000036 


30. 

500 

HZ 

17 

3336 

000310 

RCOUNT: 

200. 

: 

NO OF STEPS TO DO AT EACH FREQUENCY 

18 

3337 

100000 


100000 ; 

+* MEANS 1ST SPEED ( 100HZ ) IS TOP SPEED 

19 



; ** 

348. 


; LISTED IN RGTG 

50 

3340 

000736 


473. 



21 

3341 

001106 


538. 



2 a 

3342 

001250 


680. 



U "3 

tfm W 

3343 

001372 


762. 



24 

3344 

001512 


842. 



25 

3345 

001570 


883. 



26 

3346 

001656 


942. 



27 

3347 

001712 


970. 



28 

3350 

100000 


100000 

; NEG COUNT MEANS TOP SPEED REAC 

29 





; 

SIGN BIT USED AS A FLAG THIS SEGMENT 

30 

3351 

000620 

RAMP : 

400 . 

; 

RAMP LENGTH AT EACH FREQUENCY 

31 

3352 

000310 


200. 



35 

3353 

001044 


543. 



33 

3354 

002002 


1026 . 



34 

3355 

003110 


1603. 



35 

3356 

004360 


2233 . 



36 

3357 

005752 


3050. 



37 

3360 

007464 


339 £ . 



33 

3361 

011254 


4780 . 



39 

3 362 

013132 


5722. 



40 

3363 

015042 


6690 . 



41 

3364 

000101 

GTGWAV- 

101 

; 

16 KHZ CTR DUMP SYNC /STEP 

45 







43 



; WLD 

ERROR 

MES5AGES 

44 







45 

3365 

133334 

UMSG4: 

133334 ; 

DRIVE STUCK ON NULL 

46 

3366 

133335 

WM5GS : 

13333 

5 ; 

DRIVE STUCK OFF NULL 

47 



; 




48 

3367 

136655 

5TEPF : 

EMI 5TPF 


49 

3370 

136656 

STEPR: 

EMI 5 

TPR 


50 

3371 

000003 

AHI : 

3 


; POSH OFF LIMIT A - £13683. 

51 

3372 

045234 

ALO: 

045234 


55 

3373 

000000 

BHI : 

0 


; POSN OFF LIMIT B = 2539. 

53 

3374 

004753 

BLO: 

004753 


54 



; 




55 

3375 

045750 

LIMIT! : 

LACS 

MOTOF 

; MOTOR SHOULD BE . GT. -300 

56 

3376 

001425 


add stpma:- 


57 

3377 

1 30400 


TAN 
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1 

3400 

145037 


JMP LOOPF 

STILL OK 

2 

3401 

165073 


JST GTEUSY 

SET BUSY TO INHIBIT SCI'S 

3 

3402 

171425 

IS: 

JST UERROR 

WLD IS TOTALLY STUCK (OR NULL GONE) 

4 

3403 

145402 


JMP 15 

KEEP FLAGGING TM 

5 

8 

3404 

035745 

LIMIT2: 

DMSS PRIOR 

MAKE SURE IT TAKES NO MORE THAN 5000 

7 

3405 

134000 


NOP 

STEPS TO GET OUT OF THE LIMIT 

8 

3408 

132000 


CAC 

CLEAR MOTOR FOR NEXT PHASE 

9 

3407 

115750 


SACS MOTOR 


10 

3410 

045745 


LACS PRIOR 

MAKE SURE PRIOR STILL .GT. -5000 

11 

3411 

001426 


ADD STPMXL 


12 

3412 

130400 


TAN 


13 

341 3 

151250 


JMP CMD 

OK- KEEP STEPPING 

14 

3414 

171425 

IS: 

JST UERROR 

WLD SEEMS STUCK INSIDE LIMIT 

IS 

3415 

145414 


JMP IS 

KEEP FLAGGING TM 

18 



; 



17 

3416 

035750 

LIMITS: 

DMSS MOTOR 

MAKE SURE NULL FOUND WITHIN 300 STEPS 

18 

3417 

045750 


LACS MOTOR 


19 

3420 

001425 


ADD STPMAX 


20 

3421 

1304O0 


TAN 


21 

3422 

151250 


JMP CMD 

STILL OK - DO MORE STEPS 

22 

3423 

171425 

IS: 

JST UERROR 

WLD SEEMS STUCK 

23 

3424 

145423 


JMP IS 

KEEP FLAGGING TM 

24 



; 



25 

3425 

000454 

STPMAX: 

300. 


28 

3426 

015530 

STPMXL : 

7000. 



27 ; 

2.3 ; CHANGE WLD POSITION COUNTER BY THE CONTENTS OF FIX 

29 ; ADDING FIX SHIFTS LINES TO THE BLUE 

30 ; SUBTRACTING FIX SHIFTS LINE TO THE RED 

31 ; 


32 

3427 

013173 

FIXWL: 

AND 0NE1 ; ADD TO 

OR SUB FROM AWLD AC=(SCI) 


33 

3430 

130000 


TAZ ; 

EIT 

1=1= ADD 


34 

3431 

145476 


JMP RED 

RED 

MOVES LINE TO RED 


35 



; BLUE: 





36 

3432 

045762 


LAC 5 AWLDLO ; 

BLUE 

: MOVES LINE TO ELUE 


37 

3433 

115776 


SAC 5 TEMP J ; 

ADD 

VALUE IN 7755 TO AWLD 

AND NULL 

33 

3434 

005757 


ADDS FIX 




39 

3435 

115762 


SACS AWLDLO 




40 

3436 

130400 


TAN : 

SEE 

IF HAVE TO CARRY TO MS 

2 BITS 

41 

3437 

145441 


JMP IS 




42 

3440 

145447 


JMP 25 




43 

3441 

045776 

IS: LACS TEMP J 




44 

3442 

130400 


TAN 




45 

3443 

145447 


JMP 25 




46 

3444 

045761 


LACS AWLDHI 




47 

3445 

000173 


ADD 0NE1 




43 

3446 

115761 


SACS AWLDHI 




49 

3447 

137002 

25: 

LS A 2 




50 

3450 

045747 


LACS NULLLO 




51 

3451 

137003 


LSA 3 




52 

3452 

115776 


SACS TEMP J 

ADD 

VAL TO NULL TOO 

. 

53 

345 3 

005757 


ADDS FIX 




54 

3454 

137002 


LSA 2 




55 

3455 

115747 


SACS NULLLO 




56 

3456 

130400 


TAN 




57 

3457 

145461 


JMP 35 ; 

SEE 

IF HAVE TO CARRY TO MS 

HALF 


OF POOR QLf/ijjfy 
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i 

3460 

145471 


JMP 45 


2 

3461 

137003 

3'£: 

LSA 3 


3 

3462 

045776 


LACS TEMP J 


4 

3463 

130400 


TAN 


£ 

3464 

145471 


JMP 4$ 


6 

3465 

137O02 


LSA 2 


7 

3466 

045746 


LACS NULLHI 


8 

3467 

000173 


ADD 0NE1 


9 

3470 

1 i 5 746 


SACS NULLHI 


10 

3471 

137003 

45: 

LSA 3 


11 

3472 

045757 


LACS FIX 

; STORE FIX VALUE IN DMA 

12 

3473 

115760 

DONE: SACS LASTFX 


13 

3474 

140122 


JMP INRTN 

; RETURN 

14 



; 



15 

3475 

000644 

UND420: 

420. 


1 6 



; 



17 

3476 

045762 

RED: LACS AWLDLO 

; SUBTRACT VALUE IN FIX FROM AWL D AND NULL 

18 

3477 

115776 


SACS TEMPJ 


19 

3500 

055757 


LANS FIX 


20 

3501 

005762 


ADDS AWLDLO 


21 

3502 

115762 


SACS AWLDLO 


22 

3503 

1 30400 


TAN 

i SEE IF EORROW WAS DONE 

23 

3504 

145514 


JMP 2S 


24 

3505 

045776 


LACS TEMPJ 


as 

3506 

130400 


TAN 


26 

3507 

145511 


JMP 1$ 


27 

3510 

145514 


JMP 2£ 


28 






29 

3511 

050173 

IS: 

LAN ONE! 


30 

3512 

005761 


ADDS AWLDHI 


31 

3513 

115761 


SACS AWLDHI 


32 

3514 

137002 

2£ : 

LSA 2 


33 

3515 

045747 


LACS NULLLO 


34 

3516 

137003 


LSA 3 


35 

3517 

115776 


SACS TEMPJ 


36 

3520 

055757 


LANS FIX 


37 

3521 

137002 


LSA 2 


38 

3522 

005747 


ADDS NULLLO 


39 

3523 

115747 


SACS NULLLO 


40 

3524 

130400 


TAN 


41 

3525 

145537 


JMD j.* 

; =.F£ tc orippn*J 

42 

3526 

137003 


LSA 3 


43 

3527 

045776 


LACS TEMPJ 


44 

3530 

130400 


TAN 


45 

3531 

145533 


JMP 3$ 


46 

3532 

145537 


JMP 4$ 


47 

3533 

137002 

35 : 

LSA 2 


48 

3534 

050173 


LAN ONE! 


49 

3535 

005746 


ADDS NULLHI 


so 

3S36 

115746 


SACS NULLHI 


51 

3537 

137003 

45: 

LSA 3 


52 

3540 

055757 


LANS FIX 

; STORE FIX NEGATIVE FOR SUBTRACT 

53 

3541 

145473 


JMP DOME 


54 



; 



55 



; MATH 



56 



; INCLUDES DP ADD. 

SUBTRACT. NEGATE. MULTIFLY, DIVIDE. AND SHIFT 

57 



; 
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DOUBLE PRECISION ADDITION/ SUBTRACTION/ AND COMPLEMENTATION 

2 




ENTRY POINTS: MDPAz 

MDP5 / MDPNOT 

3 




ARGUMENTS: FOR OPERATION OP THE FORM B=A+B/ B=A-B/ OR B=-B 

4 




MTi*MT£ = 32 BITS OF A 

5 




MT3#MT4 = 32 BITS OF E 

7 

3542 

145542 

1DPA 

JMP ; ENTRY 

- D P ADDITION 

8 

3543 

137002 


L5A £ 


9 

3544 

045772 


LACS MT4 

TEST LS HALF uF E 

10 

3545 

130400 


TAN 

NEGATIVE ? 

11 

3546 

145557 


JMP 25 

NO 

12 

3547 

005770 


ADDS MT2 

YES - ADD LSS HALF OF A 

13 

3550 

115772 


SACS MT4 

STORE IN LS HALF OF B 

14 

3551 

130400 


TAN 

NEW RESULT NEGATIVE ? 

15 

3552 

145565 


JMP 4$ 

NO - CARRY ONE TO MS HALF 

16 

3553 

04S770 

IS: 

LACS MT2 

YES - TEST LS HALF OF A 

17 

3554 

i 33400 


TAN 

NEGATIVE 

18 

3555 

145563 


JMP 3S 

NO - DONT CARRY 

19 

3556 

145565 


JHP 4 5 

YES — CARRY ONE 

Slit 

■SECT 

■urn s ~r ~t iii 


Ann* mtw 

a nr) « c uai cr ncr a rn n 







21 

3560 

i 15772 


SACS MT4 

STORE IN LS HALF OF B 

22 

3561 

130430 


TAN 

NEGATIVE ? 

23 

3562 

145553 


JMP 15 

NO - TEST LS HALF OF A 

24 

3563 

132030 

35: 

CAC 

SET CARRY " 0 

25 

3564 

145566 


JMP SS 


26 

3565 

040173 

45: 

LAC 0NE1 

SET CARRY = 1 

27 

3566 

005771 

55: 

ADDS MT3 

ADD MS HALF OF B 

28 

3567 

005767 


ADDS MT1 

ADD MS HALF OF A 

29 

3570 

115771 


SACS MT3 

STORE IN MS HALF OF B 

30 

3571 

145542 


JMP MDPA 

DONE 

31 






32 

3572 

145572 

MDPS 

JMP . ; ENTRY D 

P SUBTRACTION 

33 

3573 

137302 


LSA 2 


34 

3574 

045772 


LACS MT4 

TEST LS HALF OF B 

35 

3575 

130400 


TAN 

NEGATIVE ? 


3576 

145630 


JHP IS 

NO 

37 

3577 

145611 


JMP 35 

YES 

33 

3600 

055772 

15: 

LANS MT4 

SUETRACT LOW ORDER BYTES FIRST 

39 

3601 

005770 


ADD! MT2 


40 

3602 

115772 


SACS MT4 

STORE RESULT IN LS HALF OF B 

41 

3603 

130400 


TAN 

NEW RESULT NEGATIVE ? 

42 

3604 

145621 


JMP 5 5 

NO - NO BORROW 

43 

3605 

045770 

25: 

LACS MT2 

YES - TEST LS HALF OF A 

44 

3606 

130400 


TAN 

NEGATIVE 9 

45 

3607 

145616 


JMP 45 

NO - BORROW ONE 

46 

3610 

145621 


JMP 5 5 

NO BORROW 

47 

3611 

055772 

35: 

LANS MT4 

DO SUBTRACT ON LS WORDS 

43 

3612 

035770 


ADDS MT2 


49 

3613 

115772 


SACS MT4 

STORE IN LS HALF OF B 

50 

3614 

1 30430 


TAN 

RESULT NEGATIVE 

51 

3615 

145605 


JMP 25 

NO 

52 

3616 

043173 

45: 

LAC ONEi 

BORROW ONE 

53 

3617 

005771 


ADDS HT3 

ADD BORROW TO MS HALF OF B • 

54 

3620 

115771 


SACS MT3 


/ 55 

3621 

355771 

55: 

LANS HT3 

DO SUETRACT ON MS WORDS 

56 

3622 

335767 


ADDS MTi 


57 

3623 

Ii577i 


SACS HT3 

STORE RESULT IN B 
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1 

3654 

145572 


JMP MDP5 

DONE 

5 

3 

3625 

145625 MDPNOT 

: JMP . ; ENTRY DP NEGATE 

4 

3626 

137002 


L5A 2 

SUBTRACT B FROM ZERO 

5 

3627 

135000 


CAC 


b 

3630 

115767 


SACS MTi 


7 

3631 

115770 


SACS HT2 . 


8 

3632 

165572 


J5T MDP5 


9 

3633 

145625 


JMP MDPNOT 

DONE 

10 






11 



MULTIPLY 


12 




ENTRY P0IMT5: MLTPLY 

13 




ARGUMENTS: MT4 = 16 BIT MULTIPLIER 

14 




MT5 = 16 

BIT MULTIPLICAND 

IS 




MT3+MT4 

: 32 BIT PRODUCT 

lb 

3634 

145634 MLTPL'i 

: JMP . ; ENTRY 


17 

3635 

137002 


LSA 2 


18 

3636 

1 35000 


CAC 

CLEAR MT3 AND MT7 

19 

3637 

115775 


SACS MT7 

MT7 IS FLAG OF LAST MULTIPLIER BIT 

50 

3640 

115771 


SACS MT3 

MT 3 IS MS HALF OF PRODUCT 

21 

3641 

075622 


LINS TW0D16 

LOAD OPERATION CTR = 16. 

52 

3642 

045772 IS: 

LACS MT 4 

TEST WHETHER CURRENT MULTIPLIER BIT 

23 

364 3 

134417 


ASL 15. 

IS THE SAME AS THE LAST MULTIPLIER BIT 

54 

3644 

005775 


ADDS MT7 


2S 

3645 

130400 


TAN 

IF SAMEi NO CHANGE TO PRODUCT 

56 

3646 

145661 


JMP 35 

SAME 

£7 

3647 

005775 


ADDS HT7 

BITS ARE DIFFERENT 

28 

3650 

130400 


TAN 


£9 

3651 

145655 


JMP . +4 


30 

3652 

i i5 775 


SACS MT7 

UPDATE LAST = CURRENT = 1 

31 

365 3 

055773 


LANS MT5 


32 

365 4 

145657 


JMP 25 


33 

3655 

115775 


SACS MT7 

UPDATE LAST = CURRENT = 0 

34 

3656 

045773 


LACS MTS 


36 

3657 

005771 2S : 

ADDS MT3 


36 

3660 

115771 


SACS H T 3 


37 

3661 

165744 31: 

JST MDPRS 

32 BIT END-OFF SIGN EXTENDED RIGHT SHIFT 

38 

3662 

137402 


DIN 

DECREMENT OPERATION COUNTER 

39 

3663 

145642 


JMP IS 


40 

3664 

145634 


JMP MLTPLY 

DONE 

41 






42 



DIVIDE AND ROUND TO NEAREST INTEGER 

43 




ENTRY POINTS- DIVIDE 

44 




ARGUMENTS: MT34MT4 

= 32 BIT DIVIDEND 

45 




MT5 = 16 

BIT DIVISOR 

46 




MT4 = ROUNDED QUOTIENT 

47 




MT 3 = MAGNITUDE OP REMAINDER BEFORE ROUNDING 

48 

3665 

145665 DIVIDE 

: JMP . ; ENTRY 


49 

3666 

137002 


LSA 2 


50 

3667 

045773 


LACS MTS 

TEST DIVISOR 

51 

3670 

130000 


TAZ 

= 07 

52 

3671 

145665 


JMP DIVIDE 

YES - RETURN 

53 

3672 

015605 


AMDS HIEIT 

NO - MASK SIGN BIT 

54 

3673 

115775 


SACS MT7 


55 

3674 

045771 


LACS MT3 

GET SIGN BIT OF DIVIDEND 

56 

3675 

015605 


AND! HIBIT 


57 

3676 

005775 


ADDS MT7 

ADD SIGN BIT OF DIVISOR 
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i 

3677 

115774 


5AC5 MT6 

RESULT IS SIGN OF QUOTIENT) STORE IT 

a 

3700 

055773 


LANS MTS 

DIVISOR SHOULD EE NEGATIVE 

3 

3701 

130400 


TAN 

IF POSITIVE, NEGATE IT 

4 

3702 

145704 


JMP 15 


5 

3703 

115773 


SACS MT5 


6 

3704 

045771 

IS: 

LAC5 MT3 

DIVIDEND SHOULD BE POSITIVE 

7 

3705 

130400 


TAN 


8 

3706 

145710 


JMP 2$ 


9 

3707 

165625 


J5T MDPNOT 

15 NEGATIVE SO COMPLEMENT IT 

10 

3710 

075622 

25: 

LINS TW0P16 

LOAD OPERATION COUNTER 

11 

3711 

165764 

35: 

JST MDPLS 

LEFT SHIFT DIVIDEND 

12 

3712 

045771 


LACS MT3 

CALCULATE REMAINDER - DIVISOR 

13 

3713 

005773 


ADDS MTS 


14 

3714 

130400 


TAN 

> 0 OR = 0 ? 

15 

3715 

145737 


JMP 75 

YES 

16 

3716 

137402 

45: 

DIN 

NO - DECREMENT OPERATION COUNTER 

17 

3717 

145711 


JMP 35 

DO NEXT BIT 

18 

3720 

045773 


LACS MT5 

CALCULATE 2*REMAINDER - DIVISOR 

19 

3721 

005771 


ADDS MT3 


20 

3722 

005771 


ADDS MT3 


21 

3723 

130400 


TAN 

WHICH WAY TO ROUND ? 

22 

3724 

145726 


JMP 5 5 

ROUND UP 

23 

3725 

145731 


JMP 65 

ROUND DOWN 

24 

3726 

040173 

55: 

LAC ONE. 1 


25 

3727 

005772 


ADDS MT 4 


26 

3730 

115772 


SACS MT4 


27 

3731 

045774 

65: 

LACS MT 6 

TEST SIGN FLAG 

28 

3732 

130400 


TAN 

QUOTIENT SUPPOSED TO BE NEGATIVE ? 

29 

3733 

145665 


JMP DIVIDE 

NO - IS OK 

30 

3734 

055772 


LAN! MT 4 

YES - MAKE IT NEGATIVE 

31 

3735 

115772 


SACS MT4 


32 

3736 

145665 


JMP DIVIDE 

DONE 

33 



; 



34 

3737 

115771 

75 : 

SACS MT3 

DECREMENT REMAINDER BY DIVISOR 

35 

3740 

045772 


LACS MT4 

INCREMENT QUOTIENT BY ONE 

36 

3741 

003173 


ADD 0NE1 


37 

3742 

115772 


SACS MT 4 


38 

3743 

145716 


JMP 45 

TEST TO SEE IF FINISHED 

39 



; 



40 



; SHIFT 

- 32 BIT END-OFF 

LEFT SHIFT AND RIGHT SHIFT WITH 5IGN 

41 



; ENTRY POINTS'- MDPRS, MDPLS 

42 



; 

ARGUMENTS: MT3-+MT4 = 32 BITS TO BE SHIFTED 

43 

3744 

145744 

MDPRS : 

JMP . ; ENTRY 


44 

3745 

045772 


LACS MT 4 

GET L5 WORD 

45 

3746 

134001 


ASR 1 

END OFF SHIFT RIGHT ONE 

46 

3747 

115772 


SACS MT4 


47 

37S0 

045771 


LACS MT3 

SET BIT 16 OF PAIR 

48 

3751 

134417 


ASL 15. 

(IE, BIT 1 OF MS WORD) 

49 

3752 

025772 


0RR5 MT 4 


50 

375 3 

115772 


SACS MT4 


Si 

3754 

045605 


LACS HIBIT 


52 

3755 

015771 


AMDS MT3 

GET SIGN BIT 

53 

3756 

115774 


SACS MT 6 


54 

3757 

045771 


LACS MT3 


55 

3760 

134001 


ASR 1 

END OFF SHIFT MS WORD 

56 

3761 

025774 


ORRS MT6 

EXTEND SIGN BIT 

57 

3762 

iiS77i 


SACS MT3 



"TENDED 
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1 

2 

3 

3783 

145744 

JMP MDPRS 

3784 

145784 MDPLS : 

JMP . ; 

4 

3785 

045771 

LACS MT3 

5 

3788 

134401 

A5L i 

8 

3787 

115771 

SAC'S HT3 

7 

3770 

045772 

LACS MT4 

8 

3771 

134017 

ASR 15. 

9 

3772 

025771 

ORRS MT3 

10 

3773 

1:5771 

SACS MT3 

11 

3774 

045772 

LACS NT4 

12 

3775 

1 3440i 

A5L 1 

13 

377 6 

H5772 

SACS MT4 

14 

3777 

145784 

JMP MDPLS 


ENTRY 

; SHIFT MS WORD 1 LEFT 
: SHIFT BIT IS TO BIT POSN 17 

; NOW SHIFT LS WORD 
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1 . =40*30 t DEFINE SEGMENT 2 BQUNDA.RY 

2 ; 


3 

4000 

045701 

EXECUT = 

LACS LIR 

; LOAD INSTRUCTION 

4 

4001 

134401 


ASL 

1 

= EXTRACT PARAMETER LIST FIELD 

5 

4002 

130400 


TAN 


; TEST EVENT BUMP FLAG 

4 

4003 

150005 


JMP 

21 

.= NOT SET 

7 

4004 

136740 


EX I 

EVA 

; EVENT A COUNTS RASTER FRAMES 

8 

4005 

134401 

2S= ASL 

1 



? 

4006 

134006 


A5R 

6 


10 

4007 

130000 


TA2 



11 

4010 

140253 


JMP 

BADMOD 

; DISALLOW 0 PARAM ELK INDX 

12 

4011 

001617 


ADD 

NINE2 


13 

4012 

111775 


SAC 

MT7 


14 

4013 

001601 


ADD 

MM1620 

; TEST RANGE OF PARAM LIST INDEX +9 

15 

4014 

130400 


TAN 



16 

4015 

140253 


JMP 

BADMOD 

.= TOO LARGE 

17 



J 




IB 

4016 

041617 


LAC 

NINE2 

; LOAD LIST LENGTH CONSTANT 

19 

4017 

111774 


SAC 

MT6 

; SET INDEX TO START W/ END OF LIST 

20 







21 



/ COPY 

LIST TO 

DMA BUFFER BACK TO FRONT ORDER 

22 



; 




23 

4020 

071775 

34: 

LIN 

MT7 

.= GET LOAD INDEX 

24 

4021 

046057 


LACIS 

LIST-1 

; LOAD 

25 

4022 

071774 


LIN 

MT6 

; GET STORE INDEX 

26 

4023 

117703 


SAC II 

OL-1 

; STORE 

27 

4024 

031775 


DMS 

MT7 

; DECREMENT BOTH INDEXES 

28 

4025 

031774 


DMS 

MT6 

; COPYING IS DONE WHEN MT 6 IS = 0 

29 

4026 

150020 


JMP 

35 


30 



; 




31 

4027 

045703 


LACS 

0L5 


32 

4030 

021605 


ORR 

HIEIT 

.= SET EXPMT 'SETUP' BIT 

33 

4031 

115703 


SACS 

0L5 

; SIGN BIT IS THE FLAG 

34 



; 

INITIALIZE FOR 

TACHOGRAM BEFORE EXP. SETUP 

35 

4032 

132000 


CAC 



36 

4033 

111675 


SAC 

NTACH 


37 

4034 

111714 


SAC 

TOTRDH 


38 

4035 

111715 


SAC 

TOTRDL 


39 

4036 

111712 


SAC 

TOTELH 


40 

4037 

111713 


SAC 

TOTE'LL 


41 

4040 

140520 


JMP 

SET 1UP 

; PERFORM EXPERIMENT SETUP 

4 2 
43 

404 1 

160447 

SUEB = J5T FIELDS 


44 

4042 

055776 


LANS 

TEMP J 

; NEGATIVE 'A' DATA LOADED 

45 

A A 

404 3 

141676 


JMP 

ADDD+2 

; USE COMMON CODE IN OTHER ROUTINE 

O 

47 

4044 

160447 

I AND = J5T FIELDS 

; 16-BIT .AND. 

48 

404 5 

045776 


LACS 

TEMP J 


49 

4046 

016000 


AMD IS 

6000 


50 

4047 

141701 


JMP 

ADDD+5 



51 

52 ; 

53 ; USMR 

5 4 ; 

55 ; SMREAD" - READ A 5TATUS MONITOR CHANNEL 

56 ENTRY POINTS* USMR 

57 ; ARGUMENTS: ID CONTAINS DESIRED CHANNEL 


CRIGSMAL PAGE' sS 

POOR QUALITY 



L0NCH 
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1 


E 

4050 

041776 

5MR1 : 

LAC 

3 

4051 

150051 

U5MR: 

JMP . 

4 

405 2 

101775 


510 

5 

405 3 

136500 


EX I 

6 

4054 

132000 


CAC 

7 

405S 

111776 


SAC 

8 

4056 

136041 

IS' 

EXR 

9 

4057 

150065 


JMP 

10 

4060 

031776 


DM5 

11 

4061 

150056 


JMP 

12 

4062 

171425 


J5T 

13 

4063 

061775 

HS: 

LIO 

14 

4064 

150053 


JMP 

IS 

4065 

101776 

35: 

510 

16 

4066 

041776 


LAC 

17 

4067 

134012 


A5R 

18 

4070 

1 324 00 


NOT 

19 

4071 

001611 


ADD 

20 

4072 

001775 


ADD 

21 

4073 

1 30000 


TAZ 

22 

4074 

150050 


JMP 

23 

4375 

150063 


JMP 

24 



; 


as 

4076 

136404 


EX I 

26 

4077 

150102 


JMP 

27 

4100 

041572 


LAC 

28 

4101 

133400 

RETN3 : 

CIL 

29 

4102 

150102 

LEVEL3 

: JMP 

30 

4103 

136010 


EXR 

31 

4104 

150076 


JMP 

32 



; 


33 

4105 

111572 


SAC 

34 

4106 

136322 


EXR 

35 

4107 

151267 


JMP 

36 

4110 

136323 

L 3 A : 

EXR 

37 

4111 

151272 


JMP 

38 

4112 

136140 

L3E : 

EXR 

39 

4113 

150351 


JMF 

40 

4114 

136141 


EXR 

41 

4115 

150266 


JMP 

42 



; + 


43 

4116 

136143 


EXR 

44 

4117 

150100 


JMP 

45 



; ** + 


46 

4120 

136146 


EXR 

47 

4121 

140314 


JMP 

48 

4122 

136250 


EXR 

49 

4123 

151206 


JMP 

50 

4124 

136251 


EXR 

51 

4125 

151206 


JMP 

52 

4126 

136145 


EXR 

53 

4127 

150375 


JMP 

54 

4130 

136147 


EXR 

55 

4131 

151450 


•JMP 

56 

4132 

136142 


EXR 

57 

4133 

150263 


JMP 


08-APR-BS 


12=02 


RAGE 4S 


BATA RETURNED IN AC, 10, AND LOCN SMVAL 
SMVAL 

CHAN 
5TAT 

SMVAL 
R5M 
35 

SMVAL 
15 

UERROR 
CHAN 
USMR+2 
SMVAL 
SMVAL 
10. 

0NE2 
CHAN 

5MR1 
25 

FANR 
LEVEL3 
5AVAC 


I FAN ; FIRST TEST LEV E INHIBIT 

LEVEL3-4 ; ON, RETURN IMMEDIATELY 

SAVAC 

IPCS ; GTE INTERVAL 

GTc'FIN 

IPCS ; GTS INTERVAL 

GT3FIN 

I5PC 

0TRNIN 

IMI 

MINFRM 

IMA ; MAJOR FRAME INTR. 

RETNS-1 ; NO MAJOR FRAME INTR. SHOULD HAPPEN! 

IDSN ; DAY/NIGHT TRANSITION 

DEN 

ILTA 

LIMCHK 

ILTB 

LIMCHK 

IPOC ;FOIC-B 

VFAULT 

IMP 

MP 

IFLA 

FLAINT ; OBC 'OK' SIGNAL 


REQUEST READ 
; SET TIMER 

; READ DONE ? 

; YES 

; WAITED 3 SEC FOR RESPONSE ? 
; KEEP CHECKING 
; NO RESFONSE IN 3 SECONDS 

;try again 

; STORE DATA 
; COMPARE CHAN RETND 
; SHOULD - RE3UESTED 



LGNCH 
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0S-APR-B5 


12:02 


RAGE 4-4 


1 ; 


2 

4134 

134144 


EXR 


ISCH 

3 

4135 

1S0100 


JMP 


RETN3- 

4 

4134 

134054 


EXR 


I5IM 

5 

4137 

151262 


JMP 


5IMCLR 

4 

4140 

136253 


EXR 


I5LW 

7 

4141 

150100 


JMP 


RETN3- 

8 

4142 

136252 


EXR 


I5TP 

9 

4143 

150100 


JMP 


RETN3- 

10 

4144 

150100 


JMP 


RETN3- 

11 



; 




12 

4145 

134000 

BFWTBL- 

NOP 



13 

4144 

136565 


EXI DIN 


14 

4147 

136567 


EXI D2 

N 


15 

4150 

136571 


EXI D3 

N 


14 

4151 

136573 


EXI D4N 


17 

4152 

1 36577 


,EXI DSN 


18 



; 




19 



DETTEL: 

; DET 

INTRVL 1 

20 



/ ■ 




21 

4153 

000000 

000000 

; OFF 



22 

41 S 4 

010201 

010201 

; 1 



23 

4155 

020001 

020001 

i 2 



24 

4154 

030202 

030202 

; 3 



25 

4157 

040002 

040002 

; 4 



24 

4140 

050040 

050040 

; 5 



27 

4141 

000000 

000000 

; NOT 

USED 

28 

4142 

000100 

000100 

; TEST CLK - 1 

29 

4143 

012201 

012231 

; 1 / 

B 


30 

4144 

012001 

012001 

; 2 / 

i 


31 

4145 

014204 

014204 

; 1 / 

4 


32 

4144 

014004 

014004 

; 4 / 

1 


33 

4147 

023010 

023010 

; 2 / 

3 


34 

4170 

023210 

023210 

; 3 / 

£ 


35 

4171 

034202 

034202 

; 3 / 

A 


34 

4172 

034002 

034002 

; 4 / 

t; 


37 



; 




38 

4173 

150173 

DETOM '■ 

JMP . 



39 

4174 

135403 


R5L 


3 

40 

4175 

111774 


SAC 


MT 6 

41 

4174 

071774 


LIN 


MT 6 

42 

4177 

062145 


LI 01 


DPWTBL 

43 

4200 

100201 


510 


IS 

44 

4201 

134000 

IS: 

NOP 



45 

4202 

011150 


AND 


M5G170 

44 

4203 

150173 


JMP 


DETON 

47 



; 




48 

4204 

150204 

DETPW : 

JMP . 



49 

4205 

137003 


LSA 


3 

50 

4204 

115771 


SACS 


ACONFG 

51 

4207 

071774 


LIN 


MT 6 

52 

4210 

042153 


LACI 


DETTBL 

53 

4211 

134011 


A5R 


9. 

54 

4212 

134412 


A5L 


10 . 

55 

4213 

170173 


JST 


DETON 

54 

4214 

170173 


J5T 


DETON 

57 

4215 

150204 


JMP 


DETPW 


; S/C MODE 


; FOR GSE USE ONLY 


1 

1 


1 / DET INTRVL 2 / ROUTING WORD / 


14 KHZ 


; SHIFT 3 BITS TO INDEX P05N 

.•LOAD 3 BIT INDEX TO DET INSTR TABLE 
; LOAD INSTRUCTION 
; STORE INSTR. IN PLACE 
; EXECUTE DET PWR UF 
; MASK OUT USED INDEX BITS 


; STORE DMA ROUTING WORD 
; TABLE INDEX 
; PICK POKER CODE BIT5 

; MASK AND MOVE FOR INDEX 
; PASS ARG. IN AC 
; TURN UP TO 2 DET 5 ON 
; RETURN 



LOMCH 
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1 

2 

4216 

150216 

DETLIM: 

JMP 

; SET MA; 

1 ALLOWED DET COUNTS 

3 

4217 

137003 


LSA 

3 

;FOR SPECIFIED GATE TIME 

4 

4220 

045714 


LACS 

OL + B . 


5 

4221 

011616 


AMD 

SEVEN2 


6 

4222 

111774 


SAC 

MT 6 


7 

4223 

071774 


LIN 

MT 6 


8 

4224 

0422*'! 3 


LACI 

CTLIMT 


9 

4225 

111772 


SAC 

MT 4 


10 

4226 

045714 


LACS 

OL + S. 


11 

4227 

134010 


A SR 

8. 


12 

4230 

111773 


SAC 

MTS 


13 

4231 

165634 


JST 

MLTPLY 


14 

4232 

041771 


LAC 

MT3 

; MS WORD OF RESULT 

15 

4233 

130000 


TAZ 


; IF NOT 0j LIMT MUST BE OVFL 

16 

4234 

150237 


JMP 

IS 


17 

4235 

041610 


LAC 

NEG1 


18 

4236 

150240 


JMP 

2$ 


19 

4237 

041772 

IS'- 

LAC 

MT 4 


20 

4240 

134001 

2S - 

A5R 

1 

.: DIVIDE TO BYPASS SIGN COMPLICATION 

21 

4241 

111676 


SAC 

LTDCT5 


22 

4242 

150216 


JMP 

DETLIM 


23 

424 3 

000076 

CTLIMT- 

62. 

; FOR 62. 

5 MICRO 5EC PERIOD 

24 

424 4 

000764 


500. 



25 

4245 

017500 


8000. 



26 

4246 

076400 


32000 . 



57 

4247 

i/7777 


1 / / / / / 



£8 



/ 




29 

4250 

150250 

EXP0N2: 

JMP 


; ARGUMENT IN AC ( 6 EIT5 

30 

4251 

130000 


TAZ 


; TEST IF ZERO 

31 

4252 

150260 


JMP 

£S 

; ZERO SO SET IT NEG. 

32 

425 3 

020262 


ORR 3$ 


; A ft G . > 0 

33 

4254 

110256 


SAC 

IS 


34 

4255 

041611 


LAC 

0NE2 


35 

4256 

134400 

IS: 

A5L 

0 

; THIS INSTR GETS MODIFIED SHIFT 5IZ 








-O 

M-C3 / 



J nr 


Mitu n ± j w?n Iri n>_u 

37 

4260 

051611 

2S: 

LAN 

0NE2 


38 

4261 

150250 


JMP 

EXP0N2 


39 

4262 

134400 

3S : 

ASL 0 



40 



; 




4 1 



; 

FLARE C 

OMMAND ! = 

OBC 'OK'! — CLEAR COUNTER 

42 

4263 

132000 

FLAINT: 

CAC 



43 

4264 

111637 


SAC 

CNTOBC 


44 

4265 

150100 


JMP 

RETN3-1 

; EXIT LEVEL 3 INTR. ROUTINE 

45 



; 




46 

4366 

041265 

MINFRM: 

LAC 

5AVSA 

; SAVE 5EG ADDR 

47 

4267 

131400 


TSA 



48 

4270 

111265 


SAC 

SAVSA 

; LOC ' N EXECUTED ON EXIT 

49 

4271 

041637 


LAC 

CNTOBC 

; CHECK HOW LING SINCE LAST OBC 'OK' 

50 

4272 

001611 


ADD 

0NE2 


51 

4273 

111637 


SAC 

CNTOBC 

; COUNT OF FRAMES SINCE LAST 'OK' 

52 

4274 

001607 


ADD 

TOP10H 

; SEE HOW LONG SINCE LAST 

53 

4275 

130400 


TAN 


; 'OK' FROM DEC 

54 

4276 

141647 


JMP 

CLOSE 


55 

4277 

170301 


J5T 

MIFRM 


56 

4300 

151265 


JMP 

SAVSA 



57 
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1 

4301 

150301 

MIFRM: 

JMF 



2 

4302 

1 37003 


L5A 

3 


3 

4303 

045773 


LAC 5 

MICLK ; 

COUNTER MICLK IS RESET BY DAY INTR 

4 

4304 

001611 


ADD 

0NE2 ; INCREMENTED EACH MINOR FRAME 

5 

4305 

115773 


SACS 

MICLK ; 

ROLLOVER FERIOD IS 69 MINUTES 

6 

7 

4306 

041702 

* 

LAC 

DIR5EL ; SET DIR5EL AT MINOR FRAME 

8 

4307 

011613 


AND 

THREE2 


9 

4310 

021630 


ORR 

050000 


10 

4311 

111702 


SAC 

DIRSEL 


11 

4312 

150301 


JMP 

MIFRM 


12 



; 




13 



; **++ 

QUARTER MINOR 

FRAME INTERRUPT **++ 

14 



; 

CONTROLS OUTPUT 

ON TM BUSES 

15 

4313 

135402 

SFTDIR: 

RSL 

2 

; CORRECT SHIFTING DONE 

16 

4314 

134401 

RDIRCT: 

A5L 

1 

; SHIFT FLAG BITS 

17 

4315 

111702 


SAC 

DIRSEL 

FLAG NEXT CHANNEL 

18 

4316 

061573 


LIO 

5AVI0 

; RESTORE REG 

19 



; 




20 

4317 

150317 

S“IFRM : 

JMF 



21 

4320 

101573 


510 

SAVIO 


22 



; 




23 

4321 

041702 


LAC 

DIRSEL 

; TEST DIRECTION POINTER 

24 

4322 

135002 


R5R 

2 

; FIRST TEST IF ANY OUTPUT 

25 

4323 

130400 


TAN 



26 

4324 

150313 


JMF 

SFTDIR 

; NO OUTPUT WAITING 

27 

4325 

135402 


RSL 

2 


28 

4326 

130400 


TAN 


; NEG SHOWS 3 NEXT 

29 

4327 

150334 


JMP 

IS 


30 

31 

4330 

061760 


LIO 

B3BUF 

; SEND WORD ON TMB3 

32 

4331 

136021 


EXR 

JR03 


33 

4332 

150314 


JMF 

RDIRCT 


34 

4333 

150331 


JMP 

. -2 


35 



; 




36 

4334 

061757 

1$: 

LIO 

B2BUF 

; 1/4 MINOR FRM INTR 

37 

4335 

136031 


EXR 

JR02 

; TRY DATA TRANSFER 

38 

4336 

150314 


JMF 

RDIRCT 

.: DONE 

39 

4337 

150314 


JMF 

RDIRCT 


40 



; 




41 

4340 

160447 

MITIM: 

JST 

FIELDS 

; GET -B' INDEX 

42 

4341 

045773 


LACS 

MICLK 

; GET CLOCK VALUE 

43 

4342 

116000 


SAC S3 

6000 

; STORE IN 'B-' 

44 

434 3 

140162 


JMF 

MONITR 


45 



; 




46 

4344 

00B777 

0777: 

777 



47 

4345 

150345 

QMTIM: 

JMF 


; SET DELAY WORD 

48 

4346 

021647 


ORR 

DLYF 

; AC PASSES THE AMT 

49 

4347 

111647 


SAC 

DLYP 

; DLYP IS USED FOR CONVIENENCE 

50 

4350 

150345 


JMP 

QMTIM 


5 1 

52 

4351 

170317 

QTRMIN : 

J5T 

QMIFRM 


S3 

4352 

041647 


LAC 

DLYP 

' 

54 

435 3 

130000 


TAD 



55 

4354 

155651 


>TMP 

GETSCI 

; NO DELAY) BYPASS 

56 

4355 

134301 


A5R 

1 


57 

4356 

111647 


SAC 

DLYP 

; BITS SHIFT RIGHT 
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B3-APR-SS 


10:02 


FACE 4? 


1 43S 7 1S56S1 JMP GET SCI ' 

2 

3 ; UWTX 

4 ; 

5 ; WATT - S MS OR USER SPECIFIED WAIT 

6 ; ENTRY POINTS: UWTB j UWTX 

7 ; ARGUMENTS: NONE FOR UWTB 

8 ; FOR UMTXr THE NUMBER OF 48 MTCR05EC IN AC 

9 ; 


10 

4360 

150360 

UWTX: 

JMP . 

; ENTRY 


11 

4361 

111775 


SAC 

MT7 ; 

AC CONTAINS NO OF CYCLES 

12 

4362 

031775 

1S-: 

DMS 

MT7 ; 

COUNT DOWN CYCLES 

13 

4363 

150362 


JMP 

IS 


14 

4364 

150360 


JMP 

UWTX ; DONE? 

RETURN 

15 



; 




16 

4365 

150365 

UWT 8 : 

JMP 



17 

4366 

041577 


LAC 

T8MILI ; 

8 MS WAIT 

18 

4367 

170360 


JST 

UWTX 


19 

4 370 

150365 


JMP 

UWTB 


20 



; 




21 

4371 

150371 

UWTONE 

: JMP 



22 

4372 

041630 


LAC 

050000 


23 

437 3 

17O360 


JST 

UWTX 


24 

4374 

150371 


JMP 

UWTONE 


25 



; 




26 

4375 

041704 

VF AULT 

: LAC 

PWRERR 


27 

4376 

00i6ii 


ADD 

0NE2 


28 

4377 

111704 


SAC 

PWRERR 


29 

4400 

150100 


JMP 

RETN3-1 


30 



; 




31 

4401 

150401 

GET B : 

JMP . 

; GET LS 

8 BITS OF F'OSN FROM D5 

32 

4402 

136440 


EX I 

RD5 


33 

4403 

101774 


510 

MT6 


34 

4404 

041774 


LAC 

MT 6 ; 

POSN IS EltS 14-7 

35 

4405 

134006 


ASR 

6 


36 

4406 

011576 


AND 

LOWS ; 

MASK THEM 

37 

4407 

150401 


JMP 

GETS 


38 







39 

4410 

15041O 

ASSMEL 

: JMP 

; ASSEMELE AND EXECUTE INSTRUCTION 

40 

4411 

100423 


SIO 

25 ; 

WHOSE OF CODE IS IN 10 REG 

41 

4412 

041701 


LAC 

AE ; 

FIRST STORE OP CODE 

42 

4413 

134012 


ASR 

10. ; 

CALCULATE SEGMENT TO USE 

43 

4414 

021600 


ORR 

LSAWRD ; 

ASSEMELE LSA 4 SECTOR 

44 

4415 

110422 


SAC 

13 ; 

STORE LSA 

45 

4416 

071701 


LIN 

AB ; 

ASSEMELE REST OF INSTRC FROM 

46 

4417 

120423 


SIN 

25 ; 

LOW 10 EITS OF ADDRESS 

47 

4420 

137000 


LSA 

0 


4B 

4421 

045707 


LACS, DATA ; 

LOAD AC IN CASE INSTRC IS SAC 

49 

4422 

1 37000 

IS: 

LSA 

0 .: 

MODIFIED LOCATION 

50 

4423 

000000 

21: 

0 

; 

INSTRUCTION SLOT 

51 

4424 

150410 


JMP 

ASSMBL ; 

RETURN 

52 



; 



. 

S3 

4425 

150425 

INCAB: 

JMP 

; INCREMENT AE 

54 

4426 

041701 


LAC 

AB 


55 

4427 

001611 


ADD 

DNE2 


56 

4430 

011635 


AND 

07777 

AB IS 12 EITS 

57 

4431 

111701 


SAC 

AB 





LONCH 

*** 

JUNIOR 

A.55EMBLY *+* 

08-AFR 

-85 i 8 ■' 05 PAGE 5 3 

1 

P 

4432 

150425 

JMP 

INCAB 

/ RETURN 

XL 

3 



( — COMPENSATE 

DETECTOR 

DATA BY FACTOR IN PARAMETER BLOCK B' 

4 



; A0JFC2 = ( 15CF 

+ ADJ? * PCE) / SCF 

5 



; ADJPC 

3 = ( ( SCF 

- ABJ) * PC 8) / 5CF 

6 

4433 

150433 

DUALP : JMP 



7 

4434 

137003 

L5 A 3 

; DET . DATA * .5 

8 

4435 

045714 

LACS 

OL + B. 

; COMPENSATION FOR SERVO & VEL 

9 

4436 

134410 

A5L 

3. 


10 

4437 

021634 

ORR 

03777 

(SET EXTEND BITS FOR LATER SHIFT 

11 

4440 

130400 

TAN 



12 

4441 

150444 

JMP 

IS ; 

NOT NEG SO SHIFT OFF EXTEND BITS 

13 

4442 

135013 

RSR 

11. 

(ROTATE EXTEND BITS INTO HIGH ORDER 

14 

4443 

150445 

JMP 

2S 


15 

4444 

134613 

IS'- A5R 

11 . 

(REMOVE EXTEND BITS 

16 

444 5 

111766 

2S : 5AC 

SCOIJNT 

; SAVE ADJUST FACTOR 

17 

444 6 

061650 

LID 

5PC 1 

(PASS FC2 DATA 

18 



; 



19 

4447 

170566 

jsr 

ADJPC 


20 

4450 

111776 

SAC 

DOWNED 

ADJPC2 IS FOUND 

21 



/ 



22 

4451 

651766 

LAN 

SCOUNT ; 

DIFFERENT FOR FC 3 

23 

4452 

061651 

LIO 

SPC2 


24 






25 

445 3 

176566 

JST 

ADJFC 


26 

4454 

111766 

SAC 

SCOUNT 

; ADJPC 3 IS FOUND 

27 

4455 

051651 

LAN 

5PC 2 

(TEST IF RED . GT. THRESHOLD 

28 

4456 

137003 

LSA 

3 


29 

445 7 

005720 

ADDS 

THRSHI 


30 

4460 

130460 

TAN 



31 

4461 

150502 

JMP 

VELC 

(NOT .Or. THRESHOLD 

32 






33 

4462 

051650 

LAN 

SFC1 

(IS .GT. THRESHOLD 

34 

4463 

005720 

ADDS 

THRSHI 

(TEST IF BLUE . GT . THRESHOLD 

35 

4464 

130406 

TAN 



36 

4465 

150502 

JMP 

VELC 

(NOT BRIGHT ENOUGH 

37 



; 



38 

4466 

041737 

LAC 

TCYC 

(TEST IF TACH SERVO IS ON 

39 

4467 

1 36660 

TA2 



40 

4470 

150502 

JMP 

VELC 

(TEST VELOCITIES 

41 



; 



42 

4471 

070153 

LIN 

ZER02 

( INDEX FOR DUAL USE SUBROUTINE 

4 3 

4472 

041776 

LAC 

DOWNLO 

(PROCESS BUS 2 (BLUE) DATA 

44 

4473 

170613 

JST 

SIGMA 


45 



; 



46 

4474 

071612 

LIN 

TW02 

(INDEX FOR BUS 3 (RED) DATA 

47 

4475 

041766 

LAC 

SCOUNT 

(ADJUSTED PC 3 COUNTS 

48 

4476 

170613 

JST 

SIGMA 


49 

4477 

041675 

LAC 

NT AC H 

(INCREMENT NO OF SUMMATIONS 

50 

4500 

601611 

ADD 

ONE 2 


51 

4501 

111675 

SAC 

NTACH 


52 



; 


. 

53 



; CALCULATE 

LINE SHIFT 

TO RED USING 

54 



; ( ( I < R ) - 

1(B)! 9 VELOC ) / ((HR! + 1(E)) / 2) 

55 



; 



56 

4502 

132000 

VELC : CAC 

; FIRST 

ADD SUM FOP DENOMINATOR 

57 

4563 

111767 

SAC 

MT1 
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1 

4504 

111771 


SAC 

MTS 


£ 

45B5 

041776 


LAC 

DOWNLO 

; ADJFC2 

3 

4506 

111770 


SAC 

KT2 


4 

4507 

041766 


LAC 

5COUNT 


5 

4510 

111772 


5AC 

MT 4 


6 

4511 

165542 


J5T 

MDPA 

; ADDITION DOUBLE PRECISION 

8 

4512 

165744 


J5T 

MDFR5 

SCALE DENOMINATOR BY 2 

9 

4513 

041772 


LAC 

MT 4 


IB 

4514 

111765 


SAC 

DIRECT 


11 



; 




ia 

4515 

051776 


LAN 

DOWNLO 

; SET NUMERATOR 

13 

4516 

001766 


ADD 

SCOUNT 


14 

4517 

111772 


SAC 

MT 4 


15 

4520 

041575 


LAC 

VELOC 

;5ET D.F. SIGN AND UPSCALE * VELOC 

16 

4521 

111773 


SAC 

MT5 

; PRODUCES SCALED VELOCITY NUMBERS 

17 

4522 

165634 


JST 

MLTPLY 


18 

4523 

041765 


LAC 

DIRECT 


19 

4524 

111773 


SAC 

MT5 


20 



; 




21 

4525 

165665 


JST 

DIVIDE 

; RESULT IS RED SHIFT 

22 



; 




23 

4526 

137003 


LSA 3 



24 

4527 

041772 


LAC 

MT 4 


25 

4530 

111765 


SAC 

DIRECT 


26 

4531 

130400 


TAN 



27 

45 32 

150547 


JMP 

15 

; TEST FOR RED MAXIMA 

28 



; 




29 

4533 

005746 


AED $ 

MAXBV 

; BLUE DIRECTION 50 TEST BLUE MAXIMA 

30 

4534 

130400 


TAN 



31 

4535 

150563 


JMP 

TINTN 

;NOT A MAXIMA 

32 

4536 

051765 


LAN 

DIRECT 

;YE5.. SO UPDATE VALUE.. I NTEN; P05N 

33 

45 37 

115746 


SACS 

MAXBV 

; UPDATE BLUE VELOCITY 

34 



; 




35 

4540 

041650 


LAC 

5PC1 

; NOW INTENSITY 

36 

4541 

115747 


SAC I 

MAKE I 


38 

4542 

041652 


LAC 

5 Pa 

; NOW POSITION UPDATE 

39 

4543 

115750 


SACS 

MAXBX 


40 

4544 

041653 


LAC 

SPY 


41 

4545 

115751 


SACS 

MAXEY 


43 

4546 

150563 


JMP 

TINTN 

; TEST FOR TACH ANALYSIS 

44 



; 




45 

4547 

051765 

IS-. 

LAN 

DIRECT 


46 

4550 

005752 


ADDS 

MAXRV 

; COMPARE WITH MAX RED VELOCITY 

47 

4551 

130400 


TAN 



48 

4552 

150563 


JMP 

T I NTN 


49 

4553 

041765 


LAC 

DIRECT 

; UPDATE INTENSITY MAX 

50 

4554 

115752 


SACS 

MAXRV 


51 



; 




52 

4555 

041651 


LAC 

5PC2 

, 

53 

4556 

115753 


SACS 

FiAXRI 


54 



; 




55 

4557 

W4- TbSd 


LAC 

S Pa 

; NOW POSITION UPDATE 

56 

4560 

115754 


SACS 

maxrx 


57 

4561 

041653 


LAC 

SPY 



0F P0 0R QUALITY 
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1 

4562 

115755 


SAC 5 

maxry 


2 

4563 

132000 

TINTN : 

CAC 



3 

4564 

111650 


SAC 

5PC 1 

; CLEAR DATA (FLAG) 

4 

E 

4565 

150433 


JMP 

DUALP 


6 

4566 

150566 

ADJPC: 

JMP 

; PASSED 

ADJ FACTOR IN AC 

7 

4567 

001574 


ADD 

SRVOCF ; 

CONSTANT FOR NUK/DENOM 

B 

4570 

111773 


SAC 

MTS 


9 

4571 

101772 


510 

MT4 ; 

SETUF FOR NUMERATOR 

10 

4572 

165634 


JST 

MLTPLV 


11 



; 


DIVIDE 

BY 32. 

12 

4573 

041772 


LAC 

MT4 

; LOU PART 

13 

4574 

111774 


SAC 

MT 6 


14 

4575 

134005 


ASR 

5 


15 

4576 

111772 


SAC 

MT 4 


16 

4577 

041771 


LAC 

MT3 

; HIGH PART 

17 

4600 

134413 


A5L 

11. 


18 

4601 

021772 


GRR 

MT 4 


19 

4602 

111772 


SAC 

MT 4 


20 

4603 

041771 


LAC 

MT 3 


21 

4604 

134005 


ASR 

5 


22 

4605 

111771 


SAC 

MT3 


23 

4606 

041774 


LAC 

MT 6 


24 

4607 

134004 


ASR 

4 


25 

4610 

011611 


AND 

0NE2 

; ROUND UP WHEN 1 

26 

4611 

001772 


ADD 

MT4 


27 

4612 

150566 


JMP 

ADJPC 


28 



; 




29 

4613 

150613 

SIGMA : 

JMP 

; 5UM ADJUSTED PET DATA 

30 

4614 

111770 


SAC 

MT2 

; DATA PASSED - AC 

31 

4615 

132000 


CAC 



32 

4616 

111767 


SAC 

MT 1 


33 



; 




34 

4617 

043712 


LAC I 

TOTBLH 

; BLUE COUNTER HIGH PART 

35 

4620 

111771 


SAC 

MT3 


36 

4621 

043713 


LACI 

TOTBLL 


37 

4622 

111772 


SAC 

MT 4 

;LOW PART 

38 



; 




39 

4623 

165542 


JST 

MDPA 

; D. P. TOTAL 

40 

4624 

041771 


LAC 

MT3 


41 

4625 

113712 


SAC I 

TOTBLH 


42 

4626 

041775 


LAC 

NT 4 


43 

4627 

113713 


SAC I 

TOTBLL 


44 

4630 

150613 


JMP 

SIGMA 


45 



; 




46 

4631 

150631 

CKIN7N* 

JMP . 



47 

4632 

061761 


LIO 

TM2WD 


48 

4633 

101765 


SIO 

DIRECT 


49 

4634 

137003 


LSA 

3 


50 

4635 

051765 


LAN 

DIRECT 


51 

4636 

00574 3 


ADDS 

maxic 


52 

4637 

1 30400 


TAN 


; TEST IF DATA IS I MAX 

53 

4640 

150663 


JMP 

3$ 

; NO; TEST FOR LOW I 

54 

4641 

105743 


SIOS 

manic 

; SET NEW MAX INTENSITY 

55 



; 




56 

4642 

04 1716 


LAC 

posnn 

; UPDATE POSITION OF MAX 

57 

4643 

.115744 


SACS 

maxi;: 
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1 

464 4 

041717 


LAC 

F05NY 


2 

4645 

115745 


SACS 

MAXI Y 


4 

4646 

055765 

' 

LANS 

OL + 1 

; TEST IF L.MIN EXPT 

5 

4647 

021607 


ORR 

TOP10H 


6 

4650 

001620 


ADD 

TU0D12 


7 

4651 

136400 


TAN 



B 

4652 

150656 


JMP 

IS 

; NOT MIN.' UPDATE 

9 

465 3 

001612 


ADD 

TW02 


10 

4654 

136400 


TAN 



11 

4655 

150631 


JMP 

CKINTN 

; L . MTNj NO UPDATE AT MAX 

12 

4656 

045761 

14: 

LACS 

AWLDHI 

; UPDATE LAMBDA 

13 

4657 

115741 


SACS 

MAXIWH 

; EXPERIMENT I. LAMBDA 

14 

4660 

045762 


LACS 

AWLDLO 

; CAN EE TRANSFERRED TO PERMANENT 

15 

4661 

115742 


SACS 

MAXI ML 

; OFFSET EASE WORDS W/ 2 CONTROL MOVES 

16 

4662 

150631 


JMP 

CKINTN 


17 



; 




IB 

4663 

655736 

35: 

LANS 

MINIC 

; TEST LO INTENSITY 

19 

4664 

001765 


ADD 

DIRECT 


20 

4665 

130400 


TAN 



21 

4666 

150631 


JMP 

CKINTN 

;NOT MINIMA 50 RETURN 

22 



; 




23 

4667 

041765 


LAC 

DIRECT 


24 

4670 

115736 


5ACS 

MINIC 


25 



; 




26 

4671 

041716 


LAC 

FQSNX 


27 

4672 

115737 


SACS 

MINI >! 

; UPDATE POSITIONS OF MINIMA 

28 

4673 

041717 


LAC 

POSNY 


29 

4674 

115740 


5ACS 

MINI Y 


30 



; 




31 

4675 

055705 


LANS 

OL + 1 


32 

4676 

021607 


ORR 

TOP10H 


33 

4677 

001620 


ADD 

TW0D12 


34 

4700 

1 30406 


TAN 



35 

4701 

1 ^ R k 1 1 


JMP 

CKINTN 

: NOT KTM ?>fPT 

36 

4702 

001612 


ADD 

TWG2 


37 

4763 

1 30460 


TAN 



38 

4704 

150656 


JMF 

IS 

; L.MIN EXPT 

39 

4705 

150631 


JMP 

CKINTN 


40 



; 




41 

4706 

150706 

GETPRF : 

JMP 



42 

4707 

041622 


LAC 

TWOD16 


43 

4710 

111774 


SAC 

MT 6 

; 5E I STEPPING LIMIT 

44 



; 




45 

4711 

136765 

15: 

EX I 

QRS 

; TAKE ONE STEP 

46 

4712 

041631 


LAC 

05153 

; 128 MS WAIT 

47 

4713 

170360 


JST 

UHTX 


48 



; 




49 

4714 

061626 


L10 

037S2 

; CHANNEL TO TEST PLATE REF 

50 

4715 

170651 


JST 

U5MR 

.: GET STATUS MON DATA 

51 

4716 

134406 


A5L 

6 


52 

4717 

1 304 00 


TAN 


; SKIP IF REF IS SET 

S3 

4720 

150724 


JMP 

25 

1 

54 

4721 

132000 


CAC 



55 

4722 

111735 


SAC 

PRREFC 

; CLEAR REF STEP COUNTER 

56 

4723 

150706 


JMP 

GETPRF 



57 
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1 

4724 

,031774 

2 %: 

DM5 

MT 6 

; DECR & TEST STEP LIMIT 

2 

4725 

150711 


JMP 

IS 

; TRY ANOTHER 5TEF 

3 

4726 

171425 


J ST 

UERROR 

; BAD ERROR -NO REF IN 16. STEPS 

4 

4727 

150706 


JMP 

GETPRF 

; RETURN 

5 

6 
• 7 



; 

POLARIH 

ETER ROTATION DRIVER 

8 

4730 

040344 


LAC 

0777 

; LOAD DELAY COUNT SIZE 

9 

4731 

170345 


JST 

GMTIN 


10 

4732 

041625 


LAC 

D600 

; 30 MS DELAY 

11 

4733 

170360 


JST 

uwt>: 


12 



; 




13 

4734 

150734 

MOVPR: 

JMP . 

; sa 15 

= 2 

14 

4735 

171047 


JST 

DLYTST 

;WAIT FOR ANY PENDING DELAY 

15 



1 




16 

4736 

041734 


LAC 

0STP5Z 

; LOAD THE STEP SIZE 

17 

4737 

111766 


SAC 

5C0UNT 

;5ET SCRATCH COUNT 

18 

474 0 

061626 

PR1: LIO 

03752 


19 

4741 

170051 


JST 

USMR 


20 

4742 

136765 


EMI 

QR5 

; STEP PLATE 

21 

4743 

134406 


ASL 

6 

•EXAMINE REF BIT FROM STATUS 

22 

4744 

130400 


TAN 


TEST IF SET 

23 

4745 

150762 


JMP 

NOPRNL 

; 4 NOT SET 

24 

4746 

041735 


LAC 

PRREFC 

/ 4SET— TEST REF CTR 

25 

474 7 

130000 

15: 

T AS 



26 

4750 

150757 


JMP 

25 

; EXPECTED REF, OK 

27 

4751 

061001 


LIO 

M5G331 

; NOT EXPECTING REF 

28 

4752 

171353 


JST 

U5M5G 

; SEND ERROR MSG 

29 

4753 

041735 


LAC 

PRREFC 


30 

4754 

001610 


ADD 

NEG1 


31 

4755 

111735 


SAC 

PRREFC 


32 

■3 '3 

4756 

150747 


JMP 

15 

; SEND ERROR UNTIL FRREFC = 0 

i 3 

34 

4757 

041621 

25: LAC 

TW0D15 



35 

4760 

111735 


SAC 

PRREFC 

; RESET REF CTR 

36 

4761 

150773 


JMP 

PRMTST 


37 



; 




38 

4762 

041735 

NOPRNL: 

LAC 

PRREFC 

; TEST REF CTR 

39 

4763 

130000 


TAB 



40 

4764 

150770 


JMP 

45 

; ERROR 

41 

4765 

001610 


ADD 

NEG1 

; NONE EXPECTED, OK 

42 

4766 

111735 


SAC 

PRREFC 


4 3 

4767 

150773 


JMP 

PRMTST 


44 



; 




45 

4770 

061002 

45: 

LIO 

M5G332 

; EXPECTED REF, GOT NONE 

46 

4771 

171333 


JST 

USMSG 

; SEND MSG 

47 

4772 

170706 


JST 

GETPRF 

; RETURN WITH AC = 0 IS REF, B 0 IS NON-REF 

48 



; 




49 

4773 

031766 

PRMT5T : 

DM5 SCC'UNT 

; COUNT DOWN STEP QUAN. 

50 

4774 

150776 


JMP 

65 


51 

4775 

150730 


JMP 

MGVPR-4 

; DONE 

52 

4776 

041631 

65: 

LAC 

05153 

; 128 MS COUNT 

53 

4777 

170360 


JST 

uwtx 

; WAIT FOR INTERVAL 

54 

5000 

150740 


JMP 

PR 1 


55 



; 




56 

5001 

133331 

M5G331 : 

i 3 3 3 3 1 



57 

5002 

1 3366c 

MSG 332 : 

133332 
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1 

2 



' 


RASTER x 

AXIS DRIVER **** 


3 

4 

5003 

151003 

RAXUND: 

JMP . 




5 

5004 

171047 


J5T 

DLYT5T 



6 

7 

5005 

051720 


LAN 

RA5HIX 

; PQSN COMPARE 


8 

5006 

001716 


ADD 

P05NX 



9 

5007 

130400 


TAN 


; TEST IF AT END 


10 

5010 

151021 


JMP 

25 

; YES - END ATTAINED 


11 

5011 

041716 


LAC 

PD5NX 

; NO POSNX < HIGH END 


12 

5012 

001724 


ADD 

DELTX 

; FIND NEXT POSITION 


13 

5013 

111716 


SAC 

P05NX 



14 

5014 

041621 


LAC 

TW0D1S 

; DELAY VALUE 


18 

5015 

170345 

1%: 

JST 

OMTIM 



16 

5016 

061716 


LID 

P05NX 



17 

5017 

136610 


exi 

RXLD 

; MOVE TO NEW POSN 


18 

5020 

151003 


JMP 

RAXUND 

; RETURN 


19 



; 





20 

5021 

041722 

25: 

LAC 

RA5L0X 



21 

5022 

111716 


SAC 

POSNX 



22 

5023 

041633 


LAC 

L510HI 



23 

5024 

151015 


JMP 

15 



24 



; 





25 



; 





26 

5025 

151025 

RAYUND: 

JMP . 

; UNIDIRECTIONAL Y DRIVER 


27 

5026 

171047 


J5T 

DLYT5T 

;WAIT FOR ANY DELAY 


28 

29 

5027 

051721 

- 

LAN 

RASH IV 

; Y END POSITION COMPARISON 

o o 

30 

5030 

001717 


ADD 

POSNY 

; IF NED RESULT. END NOT REACHED 

31 

5031 

130400 


TAN 



TJ o 

32 

5032 

151043 


JMP 

25 

; YES 

8 s 

O Ja 

XJ « “ 

33 

5033 

041717 


LAC 

POSNY 

; NO END YET 

34 

5034 

001725 


ADD 

DELTY 


35 

36 

5035 

5036 

111717 

041626 


SAC 

LAC 

POSNY 

03752 

; SET NEXT POSN 
; DELAY FOR STEP TIME 

<0 t; 
cr , 

37 

5037 

170345 

15: 

J5T 

OMTIM 


3s O 

r* ^ j 

38 

5040 

061717 


LI0 

POSNY 


„«, 

-« 63 

39 

5041 

136614 


EMI 

RYLD 


40 

5042 

151025 


JMP 

RAYUND 

t h't i Uh'ri 

41 



; 





42 

5043 

041723 

25: 

LAC 

RA5L0Y 

; GET LOW END OF Y RANGE 


43 

5044 

111717 


5AC 

POSNY 

; SET NEW Y 


44 

5045 

041635 


LAC 

07777 

; DELAY f OR RETRACE 


45 

5046 

151037 


JMP 

15 



46 



; 





47 

5047 

151047 

BLYTST : 

JMP 


.: DELAY SPECIFIED BY HOW MANY 


48 

5050 

041647 

15: 

LAC 

DLYP 

; SHIFTS REDD TO ZERO THIS WD 


49 

5051 

130000 


TAZ 




50 

5052 

151047 


JMP 

DLYT5T 



51 

5053 

151050 


JMP 

15 



52 

5054 

151054 

RA5LMC : 

JMP , 

; CALCULATE RASTER END POINTS 


53 

5055 

113724 


SAC I 

DELTX 



54 

5056 

111772 


SAC 

MT 4 



55 

5057 

121767 


SIN 

MT1 



56 

5060 

165634 


JST 

MLTPLY 

; FIND RANGE REQD FROM ARGS PASSED 


57 

5061 

071767 


LIN 

MT 1 

; RESTORE LOST INDEX 
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1 

5062 

041772 


LAC 

MT 4 

; TEST IP LEGAL RANGE 

a 

5063 

134010 


A5R 

0. 


3 

5064 

130000 


TAZ 



4 

5065 

151070 


JMP 

15 

; RANGE GOOD 

5 

5066 

171425 


J5T 

UERROR 

; OVERSIZE ERROR 

6 

“7 

5067 

140162 


JMP 

MONITR 

; TRY NEXT EXPERIMENT 

/ 

8 

5070 

041778 

IS: 

LAC 

MT4 

; GET SIZE 

9 

5071 

134001 


A SR 1 



10 

5072 

111773 


SAC 

MTS 

; BISECT EVEN SIZE DIMENSION 

11 

5073 

051773 


LAN 

MTS 

; MAKE TRIAL LOW END POINT 

ia 

5074 

001765 


ADD 

DIRECT 


13 

5075 

1 1 3722 


SAC I 

RASLOX 

; TEMPORARY SAVE LOW END 

14 

5076 

130400 


TAN 


; TEST IF VALID 

15 

5077 

151103 


JMP 

HIRAST 

; LOW END IS VALID 

16 

5100 

111771 


SAC 

MT3 

; SAVE NEG OVERRANGE 

17 

5101 

1 32000 


CAC 


; MAKE CORRECTION 

IB 

5102 

113722 


SAC I 

RASLOX 

; SET LOU END PT TO 0 

19 



; 




ao 

5103 

043722 

hirast; 

LAC I R 

ASLOX 

; CALCULATE END PNT 

ai 

5104 

001772 


ADD 

MT4 


aa 

5105 

113720 


SAC I 

RASH IX 


23 

5106 

051576 


LAN 

LOWS 


a4 

5107 

003720 


ADD I 

RASHIX 

; HI . LT. LIK? 

as 

5110 

13040O 


TAN 



36 

6111 

151113 


JMP 

25 

; NO; 0 ALSO ACCEPTABLE 

a7 

5112 

151121 


JMP 

35 

; YES 

2B 

5113 

111771 

25,: 

SAC 

MT 3 

; SAVE CORRECTION 

39 

5114 

051771 


LAN 

MTS 


3(8 

5115 

003722 


ADD I 

RASLOX 


31 

5116 

113722 


SAC I 

RASLOX 

; REDUCE LOW END 

3a 

5117 

041576 


LAC 

LOWS 


33 

5120 

113720 


SAC I 

RASHIX 


34 

5121 

051771 

35- : 

LAN 

MTS 


35 

5122 

137003 


LSA 3 



36 

5123 

007716 


ABB 1 1 

RAXCEN 


37 

5124 

117716 


SAC II 

RAXCEN 


36 

5125 

137002 


LSA 2 



39 

5156 

063722 

45: 

LIOI 

RASLOX 

; PASS BACK START X/Y 

40 

5127 

151054 


JMP 

RA5LMC 

; RETURN 

41 



; 




42 

A "5 



' 

++** 

EXPMT DEFN 

BLOCK DUMP OVER DATA CHANNEL5 **** 

44 

5130 

151130 

BBKDMp: 

JMP . 



45 

5131 

041702 

15: 

LAC 

DIR5EL 

; TEST FLAG WORD 

46 

5132 

134416 


ASL 

14. 

; LOW TWO BITS SHOW ACTIVITY 

47 

5133 

1 30000 


TAZ 



48 

5134 

151136 


JMP 

25 


49 

5135 

151131 


JMP 

15 


50 



; 




51 

5136 

1370O1 

25: 

LSA 

1 


52 

5137 

064255 


LIC'I 

LIC'DLR 


53 

5140 

170410 


JST 

A5SMEL 


54 

5141 

170425 


JST 

INCAB 

; INCREMENT AB (ADDRESS) 

55 



; 




56 

5142 

171353 


JST 

USMSG 


57 



; 
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1 

5143 

051700 


LAN 

LAST 

2 

514 4 

001701 


ADD 

AB 

3 

S14S 

130400 


TAN 

; NEG MEANS NOT DONE 

4 

5146 

151130 


JMP 

BBKBMP ; RETURN 

5 

5147 

151131 


JMP 

15 ; REITERATE 

& 

7 



; MEMORY 

DUMP 

FOR FAST OUTPUT 

B 



; 

OUTPUTS ADDRESS AND MEMORY CONTENTS 

9 



; 

ON BUS 2 AND BUS 3> RESPECTIVELY. 

10 



; 



11 

5150 

17O000 

MSG170: 

170000 ; MEMORY DMP MSG. FLAG 

12 

5151 

151151 

MEMDMP: 

JMP 


13 

5152 

051702 

IS: 

LAN 

DIR5EL ; MIFR INTR SETS DIRSEL = 50800 

14 

5153 

001630 


ADD 

050000 ; LOW 2 EITS MAY REMAIN SET 

15 

5154 

130000 


TAZ 

; FIND EMPTY SLOTS AFTER MIFR 

16 

5155 

151157 


JMP 

25 

17 

5156 

151152 


JMP 

15 ; CONDITION NOT MET; TRY AGAIN 

18 



; 



19 

5157 

041701 

25 : 

LAC 

A3 ; SETUP AND SEND.. 

20 

5160 

021150 

35 : 

ORR 

M5G170 ; DUMP MESSAGE 

21 

5161 

111774 


SAC 

COUNT -ALONG WITH ADDRESS 

22 

5162 

061774 


LIO 

COUNT iON TM BUS £ 

23 

5163 

171275 


J5T 

U2M5G 

24 



; 



25 

5164 

137001 


LSA 

1 

26 

5165 

064255 


LI05 

LIODLR ; AN LIO INSTRUCTION 

27 

5166 

170410 


JST 

A5SMBL 

28 

5167 

170425 


J5T 

INCAB ; INCREMENT AB POINTER 

29 

5170 

171323 


JST 

U3M5G .: OUTPUT ON TM BUS 3 

30 



; 



31 

5171 

041701 


LAC 

AB 

32 

5172 

138000 


TAZ 

; TEST IF DONE YET 

33 

5173 

151151 


JMP 

MEMDMP ; DUMPED LAs ; LOlN — 7777 OCTAL 

34 

5174 

151160 


JMP 

35 ; REPEAT UNTIL DONE 

35 



; 



36 

5175 

171254 

TWLP: J 

5T 

1 3 V 3 ; TEST WLD POWER CONDITION 

37 

5176 

137003 


LSA 

3 

38 

5177 

045772 


LACS 

RPLID 

39 

5200 

134414 


ASL 

12 . 

40 

5201 

130400 


TAN 


41 

5202 

140325 

15: 

JMP 

EXOFF ; NO ULD PWR ON 

42 

5203 

041202 


LAC 

IS ; STEP PWR ON 

43 

5204 

111640 


SAC 

CTLSLT ; SET DE-POWER JMP 

44 

5205 

151265 


JMP 

5AVSA ; AT INNER LOOP SLOT 

45 



; 



46 

5206 

171254 

LIMCHK: 

JST 

1 5 V 3 ; THIS VERSION WILL TEST MP LAST 

47 

5207 

161612 


JST 

DTIM 

48 

5210 

161632 


JST 

DEVQFF 

49 

5211 

136250 


EXR 

ILTA 

50 

5212 

134000 


NOP 


5 1 

5213 

136251 


EXR 

ILTB 

5 2 

5214 

134000 


NOP 

■ 

S3 

5215 

136440 


EX I 

RDS 

54 

5216 

137003 


LSA 

3 

55 

5217 

105774 


§101 

TEMP ; IN DMA BLOCK 7774 

56 

5220 

045774 


LACS 

TEMP 

57 

5221 

134413 


ASL 

11 . 
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1 

5 222 

070153 


LIN 

ZEROS 

; PRESET INDEX 

2 

5223 

130400 


TAN 


; TEST LIMIT B BIT 

3 

5 224 

151237 


JMP 

£5 

; NOT LIMIT E 

4 

5225 

134401 


ASL 

i 


5 

5226 

130400 


TAN 



6 

5227 

151243 


JMP 

33 

; ONLY L.IM B, 50 ACT 

7 

5230 

133000 


HLT 


; FAULT) DSW LIM BOTH ON 

8 

5231 

061621 

15 : 

LIO 

TW0D15 

; EOTH A * B) TEST MR 

9 

5232 

170051 


JST 

USMR 


10 

5233 

134410 


ASL 

8 . 


11 

5234 

130400 


TAN 



12 

5235 

140333 


J! IP 

DOOTX 


13 

5236 

151264 


JMR 

IR53 


14 



; 




15 

5237 

134401 

23: 

ASL 

1 

; TEST FOR ONLY LIMIT A 

16 

5240 

1 30400 


TAN 



17 

5241 

1 5 4 2 3 1 


TMp 

4 <T 

; NEITHER j t^ST !*,P FQP on qt 

18 

5242 

071611 


LIN 

ONES 


19 

5243 

041603 

33 : 

LAC 

010S2 


£0 

5£44 

i 64535 


JST 

KWi.r-.iAE 


21 

5245 

153246 


JMP I 

. +i 


22 

5246 

145225 


JMP 

LIMITB 


23 

5247 

145214 


IMP 

LIMITA 


24 



; 




25 



; 




26 

5250 

136656 

CMD : EX 

I STPP ; THIS COMMAND IS CHANGED BY PROGRAM 

27 

5251 

151251 


JMR 


; THIS RETURN ALSO CHANGED 

28 

5252 

136655 

XCMD '■ E 

XI 5TPF ; STEP OTHER DIRECTION FROM CMD 

29 

5253 

145042 


JMP 

RECOVR 

; USED WHEN NULL IS LOST 

30 



; 




31 



; SAVE REGISTERS FOR LEVEL 3 I NT 

32 

5254 

151254 

ISV3: JMP 



33 

5255 

041265 


LAC 

SAVSA 


34 

5256 

131400 


TSA 


; 5 A RESTORE, VARIES 0..3 

35 

5257 

111265 


SAC 

SAVSA 


36 

5260 

101573 


510 

SAVIO 


37 



; 




38 

5261 

151254 


JMP 

ISV3 


39 



; 




40 

5262 

171254 

SIMCLR- 

JST 

ISV 3 


41 

5263 

136057 


EXR 

R5IM 

; IR53 MUST BE CONTIGUOUS 

42 



; *.+>(< 




43 

5264 

061573 

IRS 3 : 

LIO 

SAVIO 


44 

5265 

137000 

SAVSA : 

LSA O 


45 

5266 

150100 


IMP 

RETN3-1 


46 



; 




47 

5267 

041605 

GT2FIN: 

LAC 

HIBIT ; NEG 

BIT 

48 

5270 

1 i 1761 


SAC 

7M2HP .FLAG 

SPECIAL LOC'N 

49 

5271 

150110 


JMR 

L3A 


50 



; 




51 

5272 

041605 

GT3FIN: 

LAC 

HIBIT ; NEG 

BIT 

52 

5 273 

111762 


SAC 

TM3WD ; FLAG 

SPECIAL LOC'N 

S3 

5274 

150112 


JMP 

L3B 


54 



; 


D I RSEL : 1 6 0 BUS 2 OUT NEX' 

55 

5275 

151275 

U2MSG : 

JMP 

; 

1 BUS 3 OUT NEXT 

56 

5276 

1 36403 

14: 

EX I 

FANS 


57 

5277 

041702 


LAC 

DIRSEL ; TEST IF E2 IS IMMED NEXT 


OF POOR QUALITY 



IS: 02 


PAGE 5y 
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1 

5 300 

130400 


TAN 


a 

5301 

135001 


R5R 

1 ; USE BIT 3 FOR MARK ;YES) 

3 

5303 

135001 


RSR 

1 ; USE BIT i FOR MARK iNOi 

4 

5303 

120400 


TAN 

; TEST IF B3 IS EMPTY 

5 

5 304 

151307 


JMP 

3$ ; EMPTY 

6 

5 305 

171414 


JST 

CHK35 

7 

e 

9 

5 306 

151376 


JMP 

15 

5307 

041703 

as ■■ 

LAC 

DIR5EL 

10 

5310 

00i6ii 


ADD 

0NE3 

11 

5311 

1 30400 


TAN 

; SKIP TO MARK BIT 1 

ia 

5313 

001611 


ADD 

0NE3 ; INTEND TO MARK BIT 3 

13 

5313 

171315 


JST 

B3IT ; USE COMMON OUT ROUTINE 

14 

5314 

151375 


JMP 

U3MSG 

IS 



; 



16 

5315 

151315 

B3IT: 

JMP 


17 

5316 

101757 


SIO 

E3BUF ; STORE OUTPUT WORD 

18 

5317 

111703 


SAC 

DIRSEL 

19 

5 330 

171414 


JST 

CHK35 

ao 

5 331 

137003 


LSA 

3 ; FOR COMPATIBILITY 

ai 

5 3aa 

151315 


JMP 

E2IT 

aa 



; 



33 

5333 

151333 

U3MSG 

JMP 


34 

5334 

136403 

IS: 

EX I 

FANS 

as 

5 335 

041703 


LAC 

DIRSEL ; WHAT IS NEXT 

36 

5 336 

130400 


TAN 

; SKIP IF S3 IS NEXT 

a? 

5 337 

135401 


RSL 

1 ; (IT ISN'TiUSE BIT 1 FOR MARK 

aa 

5330 

135003 


RSR 

3 ; USE BIT 3 FOR MARK 

39 

5331 

130400 


TAN 


30 

5333 

151335 


JMP 

35 

31 

5333 

171414 


JST 

CHK35 

?• a 

5334 

15 1334 


TMp 

14 ; WAIT FOR P«P TV 

33 

5335 

041703 

35: 

LAC 

DIRSEL 

34 

5336 

133400 


TAN 


35 

5337 

151343 


JMP 

75 

36 

5340 

03i6i£ 


ORR 

TWOS 

37 

5341 

151343 


JMP 

45 

38 

5 343 

031611 

3$ : 

ORR 

ONES 

39 

5343 

171345 

45 : 

JST 

E3IT 

40 

5344 

151333 


JMP 

U3M5G 

41 



; 



43 

5 345 

151345 

B 3 1. T : 

JMP 


43 

5 346 

101760 


SIO 

B3BUF -STORE OUT WORD 

44 

5 347 

111703 


SAC 

DIRSEL 

45 

5350 

171414 


JST 

CKK35 

46 

5 361 

137003 


LSA 

D 

47 

5353 

151345 


JMP 

B3IT 

48 



; 



49 

5 35 3 

151353 

U3MSG 

JMP 


SO 

5 36 4 

136403 

15: 

EX I 

FANS ; INHIBIT LEVEL 3 INTS 

51 

5355 

041703 


LAC 

DIRSEL 

53 

5 35 6 

135001 


RSR 

1 ; TEST IF SECOND SLOT USED 

S3 

5357 

1 30400 


TAN 


54 

5360 

151363 


JMP 

35 -BIT 1 NOT SET 

55 

5361 

171414 


JST 

CKKS5 

56 

5 365 

151354 


JMP 

15 .-REPEAT TEST 


57 




LONCH 


JUNIOR 
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i 

5363 

135001 

25: 

R5R 

1 ; BIT 

2 SET? 

a 

5 364 

130400 



TAN 

; TEST 

IF NEXT SLOT USED 

3 

5 365 

151376 



JMP 

5$ ; N0< FILL NEXT 

4 

5 366 

135402 



R5L 

2 ; YES < 

CORRECT SHIFTS 

5 

5 367 

021611 



ORR 

0NE2 ;SET 

BIT 1 

a 

5 370 

130400 



TAN 

; DFTERMINE CROSS FILL 

7 

5371 

151374 



■IMP 

45 


e 

5372 

171315 

35: 

JST 

BEIT 


9 

5 37 3 

151353 



JMP 

USMSG 


10 

5374 

171345 

45: 

JST 

B3IT 


11 

5 375 

151353 



JMP 

USM5G 


1? 








13 

5 376 

135402 

55: 

RSL 

2 


14 

5 377 

021612 



ORR 

TWO 2 


15 

5400 

130400 



TAN 



16 

5401 

151372 



JMP 

35 


17 

5402 

151374 



JMP 

45 


13 








19 

5403 

151403 


5NDM3G: 

JMP 

; COMMONLY USED CODE PASSES MSG IN AC 

20 

5404 

111773 



SAC 

MT5 

; MOVE MESSAGE TO 10 REP. 

21 

5405 

061773 



LID 

MT5 


22 

5406 

171353 



JST 

USMSG 

; UTILITY ME5G ROUTINE 

23 

5407 

151403 



JMP 

SNDMSG 

; RETURN 

24 








25 

5410 

136404 



e:<i 

fanr 


26 

5411 

136140 



exr 

I SPC 


27 

5412 

151416 



JMP 

A25HZ 


23 

5413 

133400 



CIL 



29 

5414 

151414 

CHK25 : 

JMP 



30 

5415 

151410 



JMP 

. -5 


31 








32 

5416 

170317 


425 HZ : 

JST 

QMIFRM 


33 

5417 

041647 



LAC 

DLYP 


.34 

5420 

130000 



TAZ 



35 

5421 

151413 



JMP 

CKK25-1 


36 

5422 

134001 



ASR 

i 


37 

5423 

111647 



SAC 

DLYP 


38 

5424 

151413 



■JMP 

CHK25-1 


39 








40 




UERROR 



41 








42 




ERROR 

ROUTINE 


43 




ENTRY 

POINTS: UERROR 

44 




ARGUMENTS : UERROR 

CONTAINS ADRESS OF ERROR 

45 








46 

5425 

151425 

UERROR : 

JMP 



47 

5 426 

061602 



LIO 

ERRMSG 

; OUTPUT 'ERROR' MSG 

48 

5427 

171353 



JST 

USMSG 


49 

5430 

137003 



ISA 

3 


50 

5431 

041425 



LAC 

UERROR 


51 

5432 

134403 



A3L 

3 

; PUT BITS 13-12 IN P05NS 12-11 

52 

5433 

134004 



ASR 

4 


53 

5434 

111771 



SAC 

MT3 

; TEMPORARY STORE 

54 

5435 

045764 



LAC 

l ERRWRD 

; THIS ADDS 10000 TO DMA LOCN 

55 

5436 

011606 



AND 

TORFOR 

; TO HELP COUNT ERRORS. CYCLE LENGTH 

56 

5437 

001604 



ADD 

01 OK 


57 

5440 

021771 



ORR 

MT3 



16 . 
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1 

5441 

115764 


SAC 5 

ERRWRD 


a 

5 443 

071435 


LIN 

UERROR 

; PUT BITS 10-1 IN POSNS 10-1 

3 

5443 

137403 


DIN 



4 

5444 

1 HE 7 64 


5 INI. 

ERRWRD 


5 

5445 

065764 


LIDS 

ERRWRD ; 

OUTPUT ERROR WORD 

6 

5446 

171353 


JST 

USMSG 


1 

5447 

151435 


JMP 

UERROR 


Ci 

9 

5450 

040103 

MP: 

LAC 

LEVELS 

; LOG MEM PRO ERROR LOCN 

10 

5451 

0H633 


AND 

LS10HI 

; MASK LOU 10 BITS IN 

11 

5453 

111705 


SAC 

MPERR 


ia 

54S 3 

041613 


LAC 

THREES 


13 

5454 

134413 


ASL 

11 . 


14 

5455 

oioioa 


AND 

LEVEL3 

; GET SEGMENT 

15 

5456 

1 34001 


A5R 

1 


16 

5457 

031705 


0RR 

MPERR 

; COMBINE 

17 

5460 

001610 


ADD 

NEG1 


18 

5461 

111705 


SAC 

MPERR 

; SAVE FOR ANALYSIS 

19 

5463 

150100 


JMP 

RETN3-1 


ao 



; 




ai 

5463 

15 i463 

HEATR: 

JMP . 



aa 

5464 

041677 


1. AC 

HEATWD 


a3 

5465 

011576 


AND 

LOWS 

; CLEAR FLAG BIT 

34 

5466 

111677 


SAC 

HEATWD 


35 

5467 

134410 


ASL 

a. 


36 

5473 

130400 


TAN 



37 

5471 

151474 


JMP 

. +3 


38 

5473 

136661 


EMI 

HIM 


£9 



1 




30 

5473 

151463 


JMP 

HEATR 


31 

5474 

134401 


ASL 

1 


33 

5475 

130400 


TAN 



33 

5476 

15 1 463 


JMP 

HEATR 


34 

5477 

136660 


EX I 

HiF 


35 

5560 

151463 


JMP 

HEATR 


36 



; 

HEATER COMMAND: 

CORRECTED FROM LAST TIME 

-z-i 

5501 

045700 

INLHTR 

: LACS 

SCI 

; < THIS WAS MISSING) 

33 

5563 

111677 


SAC 

HEATWD 

; HEATER CHANGE AC=(SCI) 

39 

5503 

045773 


LACS 

RPWD 

.-TEST POWER BITS 

40 

5504 

134001 


ASR 

1 

; DON'T NEED LOW BIT 

41 

5505 

130000 


TAZ 



43 

5506 

i7i463 


JST 

HEA'i R 


43 

5507 

140133 


JMP 

INRTN 

; SKIPS HEATR IF EXPMT IN PROG 

44 



; 




45 

5510 

136634 

5LSF: 

1 36634 



46 

5511 

136630 

SLSR: 

136630 



47 

5513 

161633 

SIZE: 

JST 

DEVOFF 

; TURN ALL HRDUR OFF 

48 

5513 

1 26634 


EX I 5 

LTN 


49 

5514 

161613 


JST 

DTIM 

; DETS OFF 

50 

5515 

170371 


JST 

UWT ONE 


51 

5516 

045701 


LACS 

LIR 


53 

5517 

134011 


ASR 

v . 


5? 

5530 

011636 


AND 

03753 


54 

5531 

115776 


SACS 

TEMP J 


55 

5533 

055776 


LANS 

TEMP J 


56 

5533 

001534 


ADD 

D30S3 


57 

5534 

1 30400 


TAN 




O Q 

-a S 
o ;•> 


Q > 
33 «*"' 


O 

c: 


’S3 


3& O 


H 

*< 


fc : ) 
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1 

5565 

151567 



JMP 

IS 

6 

S 566 

136656 



EMI 

SLOS 

3 

5567 

001615 


S • 

ADD 

TWO?. 

4 

5530 

130400 



TAN 


S 

5531 

151533 



JMP 

as 

6 

5536 

151570 



JMP 

SIZOFF 

7 

5533 

164510 

65 : J51 

RDSIZ 


3 

5534 

111770 



SAC 

MT3 

<7 

5535 

130000 



TAZ 


10 

5536 

151570 



JMP 

SIZOFF 

11 







16 

5537 

061510 


>5 : 

LIO 

SLSF 

13 

5540 

055776 



LANS 

TEMP J 

14 

5541 

001770 



ADD 

MT 6 

IS 

5546 

130400 



TAN 


16 

5543 

061511 



LIO 

SLSR 

17 

5544 

101551 



510 

5$ 

13 

5545 

130000 



TAZ 


19 

5546 

151570 



JMP 

SIZOFF 

60 

5547 

041770 



LAC 

MT 6 

61 

5550 

111771 



SAC 

MT3 

66 

5551 

136634 


Si: EM 

SLSF 

.'VARIABLE INSTRUCTION 

63 

5556 

045773 



LACS 

MICLK 

64 

5553 

111776 



SAC 

MT4 .START TIME 

as 







66 

5554 

164610 


a- 

JST 

RDSIZ 

67 

5555 

111770 



SAC 

MT3 

63 

5556 

051771 



LAN 

HT3 

69 

5557 

001770 



ADD 

MT 6 

30 

5560 

130000 



TAZ 


31 

5561 

151563 



JMP 

7S 

36 

5566 

151537 



JMP 

4S 

33 







34 

5563 

055773 


T $: 

LANS 

MICLK 

35 

5564 

001776 



ADD 

MT4 

36 

5565 

001576 



ADD 

LOWS 

37 

5566 

130400 



TAN 


33 

5567 

151554 



JMP 

6 S 

39 

5570 

136660 


5IZOFF 

EMI SL 

TF 

40 

5571 

140166 



JMP 

MONITR 

41 







46 

5576 

000000 


5AVAC : 

0 


43 

5573 

000000 


5AVIQ • 

0 


44 




*** 



45 







46 




16 MS COUNT 

OF WAIT. ACCURACY -1, +0 

47 




DELPR 

9. 

; POL ROTATE >153 MS 

43 




dels:-; 

4 

; VALUE FOR M DELAY 

49 




DELSY 

5 

; VALUE FOR Y 

50 




DELRX 

a . 


51 




DELRY 

15. 

; VALUE FOR Y RETRACE DELAY 

52 







S3 

5574 

000040 


5RVOCF 

33 

; 30 . GIVES 7 PERCENT CHANGES TO 3:1 

54 

5575 

000054 


VELQC ; 

60. 

; MULTIPLIER FOR USER VELOCITY DATA 

55 





• 


56 

5576 

000377 


_ 0 W 8 : 

377 


57 

5577 

000643 


TSMILI 

163. 




LONCH 


*** JUNIOR ASSEMBLY H'+if* 


1 

5600 

137000 

LSAWRD 

LSA 

2 



; **+ 


3 

5601 

176204 

MM1620 

— i574 

4 

5602 

155555 

ERRMSG 

155555 

S 

5603 

000010 

01052 : 

10 

6 

5 604 

0 i 0000 

O10K- 

10000 

7 

5605 

100000 

HIBIT: 

1OO00O 

8 

5606 

170000 

TOPFOR 

170000 

9 

5 607 

177700 

TOP10H 

177700 

10 

5610 

177777 

NEG 1 : 

-1 

11 

5611 

000001 

ONES : 

1 

12 

5612 

000002 

TW02 : 

2 

13 

5613 

000003 

THREE2 

3 

14 

5614 

000004 

F0UR2: 

4 

IS 

5615 

000005 

FI VE2 : 

5 

IS 

5616 

000007 

SEVEM2 

7 

17 

5617 

000011 

NINE2: 

9. 

18 

5 620 

000014 

TWO D 12 

12. 

19 

5621 

000017 

TW0D1.5 

15 . 

20 

5622 

000020 

TW0D1 6 

16. 

21 

5623 

002161 

D1137: 

1137. 

22 

5 62 4 

G0C024- 

D2052 : 

20. 

23 

5625 

001130 

0600 : 

600 . 

24 

5626 

000037 

037S2: 

37 

25 

5 627 

000077 

077D2: 

77 

26 

5630 

050000 

050000 

50000 

27 

5631 

005153 

05153: 

5153 

28 

5632 

057330 

057330 

57330 

29 

5633 

001777 

L510HI 

1777 

30 

5634 

003777 

03777: 

3777 

31 

5635 

007777 

07777: 

7777 

32 

5636 

077777 

077777 

77777 

33 



; 


34 

5637 

000000 

CNTOBC 

0 

35 



; 


36 

5640 

000000 

CTL5LT 

0 

37 




II 

in 

38 



; 


39 

5646 

000000 

DELAY: 

o 

40 

5647 

000000 

DLYP • 

8 

41 

5650 

000000 

SPC1 : 

0 

42 

5651 

000000 

S P C 2 : 

0 

43 

5652 

000000 

5 P X : 

0 

44 

5653 

000000 

SPY: 

0 

45 

5654 

000000 

BOTH: 

0 

46- 



; 


47 




. =5675 

48 

5675 

000000 

NT ACK : 

0 

49 

5676 

000000 

LTDCTS 

0 

50 

5677 

0OOOOO 

HEATWP 

0 

51 

5700 

00O00O 

LAST: 

0 

52 

5701 

000000 

AB: 

0 

53 

5 702 

000000 

DIRSEL 

0 

54 

5703 

800080 

PASCNT 

0 

55 

5704 

000000 

PWRERR 

0 

56 

5705 

000000 

MPERR: 

0 

57 

5706 

000881 

PINDX: 

1 


08— APR— 35 
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; FOR 3P MS WAIT 
; COUNT FOR 123 MS WAIT 
; LOW 12 BIT MASK 

; COUNTER — TIME SINCE LAST OBC 'OK' SIGNAL 

; CONTROL SLOT AREA 
; ALSO CONTROL SLOT 



LOfJCH 
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0S-APR-S5 


15 : 0 = 


1 570? 000005 KIND:;: 5 ' 

2 5710 000003 YINDK: 3 

3 5711 000000 DOWNHI: 0 

4 ; THE FOLLOWING VARIABLE PAIRING 15 

5 5712 000000 TuTBLH: 0 

6 5713 000O00 TOTELL: 0 

7 5714 000000 TOTRDH: 0 

3 5715 000000 TOTRDL: 0 

9 5716 000000 POSNK : 0 

10 5717 000000 POSNY: 0 

11 5720 000000 RASHi:;: 0 

12 5721 000000 RASHI Y: 0 

13 5722 000000 RASLOX: 0 

14 5723 000000 RASLOY- 0 

15 5724 000000 DELTX: 0 

16 5725 000000 DELTY: 0 

17 ; +#**#■++**+* FAIRS END HERE 


13 

5726 

06)0000 

XCYC5Z 

0 

IV 

5727 

000000 

RXCYCL 

0 

20 

5730 

0O0000 

YCYC5Z 

0 

21 

5731 

000000 

R YCYCL 

0 

22 

5732 

000000 

QCYCSZ 

0 

23 

5733 

000000 

PRC YCL 

0 

24 

5 73 4 

000000 

GSTP3Z 

0 

25 

5735 

000000 

PRREFC 

0 

26 

5736 

000000 

TCYC5Z 

0 

27 

5737 

000000 

TC YC : 

0 

23 

5 740 

000000 

DELTAL 

0 

2? 

5741 

000000 

WLCYSZ 

: 0 

30 

5742 

000000 

WLCYC: 

0 

31 

5 74 3 

000000 

DULDHI 

: 0 

32 

5744 

000000 

DWLDLO 

: 0 

33 

5745 

177777 

PRIOR: 

-1 

34 



NULLHI 

= 5746 

35 



NULLLO 

=5747 

36 



. =5750 


37 

5750 

000061 

MOTOR: 

49. 

33 

5751 

000000 

D5LAT : 

0 

39 

5752 

000000 

D50LD : 

0 

40 

5753 

000000 

CALSIZ 

0 

41 

575 4 

000000 

CCYCSZ 

: 0 

42 

5755 

000000 

CALLAM 

: 0 

43 

5756 

000000 

CALCYC 

: 0 

44 

5757 

000000 

EHBUF : 

P 

45 

5 760 

000000 

B3BUF: 

0 

46 

5761 

000000 

TM2WD : 

0 

47 

5762 

000000 

TM3WD : 

0 

48 



WANYHI 


49 

5763 

000000 

OLD: 

0 

50 

5764 

000000 

WANTLO 

: 0 

5 1 

5765 

000000 

DIRECT 

: 0 

52 

5766 

000000 

3C0UNT 

: 0 

53 

5767 

000000 

MT1 : 

0 

54 

5770 

000000 

MT2 : 

0 

55 

5771 

000000 

MT3 : 

0 

56 

5772 

000000 

MT4 : 

0 

57 

5773 

000000 

MT5 : 

0 
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i 



MT 6 : 




2 

5774 

0O00O0 

COUNT: 

0 



3 



MT7 : 




4 

5775 

000000 

CHAN: 

0 



5 



DOWNLO: 




6 

5776 

000000 

SMVAL : 

0 



7 

O 

5777 

000000 

PFFLAG : 

0 



9 




. =6000 



10 

6000 

000000 

VECTOR: 

0 


. 

11 




. =6036 

; VECTOR 

O' 16' 

12 

6036 

000400 

400 




1 3 




. =6060 



14 

6060 

000020 

LIST: 

16. ; LIST A 


IS 

6061 

110040 

0B5LST : 

110040 

; OBSERVING LISTS BEGIN HERE 

IS 




. =6461 



17 

6461 

110040 

11 0040 



18 

6462 

002013 

002013 



19 

6463 

120205 

12020 

c 



20 

6464 

100000 

100000 



21 

6465 

000000 

0 




22 

6466 

000004 


4 



23 

6467 

000000 

0 




24 

6470 

036074 

036074 



25 

6471 

G2040O 

020400 



26 

6472 

077001 

077001 



27 



; 




28 



; 4!++ 




29 




. =7651 



30 



; LEV 

EL 3 16 

MS INTERRUPT TEST FOR SCI CMD 

31 

7651 

041700 

GETSCI: 

LAC 

SCI 

: SEG 3 TEST FOR SPEED 

32 

7652 

130400 


TAN 



33 

765 3 

155655 


JMP 

. +2 


34 

7654 

150100 


JMP 

RETN3-1 


35 

7655 

171254 


J5T 

I5V3 


36 

7656 

140020 


JMP 

MQNITI 

; LOOK AT SCI CMD 

37 



; 

'TYPE 1 

' SCI : 

DOOR/SLIT /POLR COMMAND TO JR 

38 

7657 

136460 

DEVCD: 

EX I 

060 

; DOOR 

39 

7660 

136620 


EX1 

220 

; SLIT 

40 

7661 

136760 


EX I 

360 

; POLRM 

41 

7662 

136660 


EX I 

260 

; HEATR + IN5TR PWR INVERTER 

42 

766 3 

137002 

DVI5E : 

Lb A 

2 


43 

7664 

134006 


ASR 

6 

; SERIES CODE ( I . E. DODR/SLIT/POLR) 

44 

7665 

015613 


AMDS 

THREE2 


45 

7666 

111774 


SAC 

TEMP 


46 

7667 

071774 


LIN 

TEMP 


47 

7670 

041700 


LAC 

SCI 


43 

7671 

015621 


AMDS 

TW0B1S 

.•SUB-SERIES CODE 

49 

7672 

023657 


ORRI 

DEVCD 

; GET FULL COMMAND 

5 0 

7673 

111575 


SAC 

. +2 


51 

7674 

061704 


LIO 

OL 

.•WANTED SLIT «<PREV. SET IF ' 5LLD ' COMMAND) 

52 

7675 

1 34000 


NOP 

• in 15 lb TnE CCurw bL 1 7/r GLn CunnAiVD^'r* 

53 

7676 

140307 


JMP 

HA IT 

; DONE 

54 



; *** 




' 55 



; 




56 

7677 

000001 

EXPADV: 

1 



57 

7700 

106020 

SCI: 

106020 





LONCH 


+*+ JUNIOR A55EHBLV *** 


03-APR-85 


i2: 05 


1 

7701 

000000 

LIR 

0 

2 

7702 

oooooo 

LPC : 

0 

3 

7703 

oooooo 

QLS : 

0 

4 

5 

7704 

000000 

OL •' 

0 

6 



EXPNUM= 

7715 


7 . =77 16 

8 7716 000177 RAXCEN : 177 

9 7717 000177 RAYCEN : 177 

10 7720 000005 THR5HI : 5 ; RAW DATA MUST EXCEED 2 X 


11 7721 000000 MAXKI: 0 

12 7722 000000 MAXLO '• 0 

13 ; 


14 

15 

16 



. =. +11. 
FLAG=77 

33 

17 

7736 

000000 

MIMIC' 

0 

18 

7737 

OOOOOO 

MINIM: 

0 

19 

7740 

oooooo 

MININ': 

0 

20 

7741 

000000 

MAXIWH: 

0 

21 

7742 

oooooo 

MAXIUL: 

0 

22 

7743 

oooooo 

MAXIC : 

0 

23 

7744 

oooooo 

MAX IX: 

0 

24 

7745 

oooooo 

MAXIY: 

0 

25 

7746 

oooooo 

MAXBV: 

0 

26 

7747 

oooooo 

MAKE I: 

0 

27 

7750 

oooooo 

MAXBX: 

0 

28 

7751 

oooooo 

MAXBY: 

0 

29 

7752 

oooooo 

MAXRV: 

0 

30 

775 3 

oooooo 

MAXRI : 

ft 

31 

7754 

oooooo 

MAXRX: 

0 

32 

33 

7755 

oooooo 

MAXRY: 

0 

34 

775 6 

oooooo 

OFFTTL : 

0 

35 

775 7 

000000 

FIX: 

0 

36 

37 

7760 

oooooo 

LASTFX: 
AWLDH 1= 

0 

776 


38 AWLDL0=7762 

39 =7763 


40 

7763 

OOOOOO 

WLSCAN 

0 

41 

7764 

oooooo 

ERRWRD 

0 

42 

7765 

oooooo 

CPRCYC 

0 

43 

7766 

oooooo 

CXCYCL 

ft 

44 

7767 

oooooo 

CYCYCL 

0 

45 

7770 

oooooo 

REPEAT 

0 

46 

7771 

oooooo 

ACONFG 

0 

47 

7772 

OOOOOO 

RPWD : 

0 

48 

7773 

oooooo 

MICLK: 

0 

49 

7774 

oooooo 

TEMP : 

0 

50 

7775 

oooooo 

TEMPI : 

0 

51 

7776 

oooooo 

TEMFJ: 

0 

52 

7777 

000020 

BSYGN 

16 

53 



; 


54 



. END 







LONCH 


SYMBOL TABLE **•+ 

03' 

-APR-85 

12:02 










A25HZ 

5416 

60-27 

60-328 













AB 

5701 

2-22 

7- 9 

7-13 

7-14 

14-33 

49-41 

4^ — AC 

49-54 

49-57 

57- 2 

57-19 

57-3i 

63-528 


ABHI 

401 

6-45 

7- 68 













ABLO 

406 

6-48 

7-128 













ACC TP 

2715 

31-34 

32- 28 













ACONFG 

7771 

5-15 

14-13 

23-16 

23-2i 

23-24 

23-26 

23-41 

46-50 

66-468 






ADDD 

1674 

4-3? 

21-548 

44-45 

44-50 











ADJPC 

4566 

50-19 

50-25 

52- 68 

52-27 











AHI 

3371 

35-44 

37-508 













ALIST 

116 

2-37 

2-508 













ALLOFF 

327 

1-26 

5-448 

22-51 












ALO 

3372 

35-45 

37-518 













A5SMBL 

4410 

7-26 

49-398 

49-51 

5 6-5 3 

CT..S7 










AWAY 

3235 

35-50 

36- 48 













AWLDHI 

7761 

13-44 

19-27 

20- 3 

27- 3 

23- 1 

28-51 

33-16 

34- 3 

34-20 

35-47 

35-5 7 

36-42 

39-46 

3.8-43 



39-30 

39-31 

53-12 

66-37 











AWLDLO 

7762 

19-45 

19-23 

20- 4 

27- 4 - 

28— 2 

23-52 

33-17 

34- 4 

34-21 

35-48 

36- 1 

36-43 

39-36 

39-3? 



39-17 

39-20 

39-21 

53-14 

66-38 










BSBUF 

5757 

48-36 

59-17 

64-448 












B2IT 

5315 

59-13 

59-168 

59-21 

60- 3 











BSBUF 

5 760 

4S-31 

59-43 

64-453 












B 3 XT 

5 345 

5 9-39 

59-428 

59-47 

60-10 











BADL5T 

255 

4-498 














BADMOD 

25 3 

3-49 

3-52 

4- 3 

4-478 

44-11 

44-16 









EH I 

3373 

35-54 

37-528 













BLIST 

120 

2-3S 

2-51 

2-5 38 












BLu 

3374 

35-55 

37-533 













BOOT 

341 

6-268 

7-10 

7-15 

7-20 

7-28 










boot:-; 

33 3 

6-198 

7-34 

58-12 












BOTH 

5654 

23- 4 

24- 7 

24-57 

63-453 











B5YCLR 

1641 

5-21 

21-238 

21-28 

30-24 

34- 5 

36-56 









B3YGN 

7777 

1-42 

15-30 

21-25 

21-27 

34-11 

34-13 

66-528 








CALC VC 

5756 

10-45 

19-40 

19-48 

19-52 

64-438 










CALL AM 

5755 

10-56 

19-17 

19-20 

19-22 

19-55 

64-428 









CALSIZ 

575 3 

12-55 

19-53 

64-408 












CCALIE 

1476 

10-24 

11- 2 

19-158 

19-38 

19-44 

19-4? 









CCYC3Z 

5 75 4 

10-44 

19-51 

64-418 












CHAN 

5 775 

9-10 

9-11 

9-29 

9-31 

Y_ A 

45- 4 

45-13 

45—20 

iC _ 444 






CHK25 

5414 

5 9- 6 

59-19 

59-31 

59-45 

59-55 

60-298 

60-35 

60—38 







CK'IHTN 

4631 

23- 2 

52-468 

53-11 

5 3-16 

53-21 

53-35 

5 3-39 








CLEAR 

34 3 

6-26 

6-298 

7- 4 












CLINT 

1523 

19-19 

19-408 













CLKTEL 

2173 

23-54 

25-338 

26-10 

23-20 

23-24 










CLLCT 

2022 

23- 1 

23-22 

23-338 












CLOSE 

1647 

21-318 

47-54 













CMD 

5250 

30-43 

30-46 

30-48 

36- 7 

36-1 1 

36-15 

36-17 

36-30 

38-13 

38-21 

1/1 

CO 

] 

ru 

er- 

st 




CMPR 

1703 

4-35 

22- 58 













CNTOEC 

5637 

5-13 

47-43 

47-49 

47-51 

63-348 










COLFIN 

2020 

23-368 

25- 2 

25-35 












COMP A A 

166 4 

4-31 

21-458 













COMT 

1667 

21-438 

22- 3 













COUNT 

5774 

9- 6 

9-16 

9-34 

9-36 

9-55 

12- 5 

12- 7 

12-16 

12-21 

12-37 

12-44 

57-21 

57-22 

65- 28 

COUT 

1307 

16-338 

23-34 













COUTER 

1304 

10-26 

16-308 













CPRCYC 

7765 

12-32 

16-46- 

20-25 

20-26 

66-428 










CPUDMP 

60 

2-12 

2-168 













CTLCAL 

640 

9-50 

10-14 

10-248 















CTLCHK 

543 

9-13# 

9-3£ 







CTLFND 

573 

9-18 

9-40# 







CTLIMT 

454 3 

47- 8 

47— £3# 







CTLIN5 

634 

9-4 1 

10-19# 







CTLMOR 

566 

9-34# 

10- 1 







CTLNXT 

557 

9-22 

9-E6# 







CTLQTR 

642 

10-10 

10-36# 







CTLRST 

540 

9- 9# 

9—38 







CTL5LT 

5640 

9-4 3 

9-51 

10- 3 

10-1 1 

10-15 

E3-H9 

£3-33 

57-43 

CTLTAC 

641 

10- 5 

10-25# 







CTR1 

1316 

16-32 

16-41# 







CKCYCL 

7766 

12-30 

16-43 

17-41 

17-4E 

66-43# 




CYCYCL 

7767 

12-31 

16-44 

17-11 

17-12 

££-44# 




DIO 

254 3 

25-55 

26-30# 

32-41 

33-53 

36-47 




Dll 37 

5653 

3-27 

63-21# 







D16 

1735 

2-30 

14-34 

££-35# 






D509 

555 3 

26-38# 

36-19 







BE052 

5654 

61-56 

63-22# 







DE5 

5544 

26—31# 

31-23 







DSN 

314 

5-31# 

45-47 







B3E 

1736 

2-5 3 

22-36# 







B40 

5547 

26-34# 

32-54 







D47 

432 

6-39 

7-36# 







D48 

2550 

£6-35# 

31- 4 







D56 

5551 

£6-36# 

30-54 







D600 

5625 

54-10 

63-E3# 







D65 

1737 

5-35 

££-37# 







DATA 

1707 

7-19 

7-23 

7-24 

EE- 10# 

49-48 




DAT AHI 

412 

6-51 

7-17# 







DATALO 

416 

6-54 

7— E2# 







DBKDMP 

5130 

14-36 

56-44# 

57- 4 






DELAY 

5646 

63-39# 








DELOK 

£34 1 

£7-18 

27-35# 







DELTAL 

5740 

11-50 

18-50 

£6-55 

£7-16 

£7-1? 

£7-40 

64-ES# 


belt;-; 

5724 

12-52 

12-53 

13-12 

13-37 

. 55-12 

55-53 

64-15# 


BEL TV 

5 725 

55-34 

64-16# 







DETFF 

2261 

£4-45 

£4-56 

£5-23 

£5-34 

£5-46# 

£5-52 



DETLIM 

4216 

13-47 

47- 2# 

47-E2 






DETON 

4173 

46-38# 

46-46 

46-55 

46-5 6 





BETPW 

4204 

13-57 

14-14 

46-48# 

4 6-57 





DETTBL 

4153 

£4-11 

46-19# 

46— 5£ 






DEVCD 

7657 

65-38# 

65-49 







DEVOFF 

1632 

3-40 

5- 4 

5-45 

£1-15# 

£1 -21 

57-48 

61-47 


DFALT 

630 

10- 9 

10-14# 







DIRECT 

5765 

9- 9 

9-19 

9-26 

9-E8 

9-40 

13- 3 

13-27 

15-17 



EE-5 6 

28-57 

31 — 7 


34-37 

34-38 

A —C~7 

— _C — 1 



51-49 

52-48 

52—50 

. 53-19 

5 3-23 

56—12 

64-51# 


DIR5EL 

5702 

46- 7 

48-10 

48-17 

48-23 

56-45 

5 7-1'J 

58-57 

59- 9 

DIVIDE 

3665 

15-15 

15-E7 

15-39 

41-48# 

41-52 

42-2? 

4£-3E 

51-21 

DLYP 

5647 

9- £ 

48-48 

48-49 

48-53 

48-57 

55-48 

60—33 

60-37 

DLYT5T 

5047 

18-18 

1 8— 42 

54-14 

55- 5 

55-27 

55-47# 

55-50 


DM IF 

2721 

31--40 

3E- 7# 







BNCHEK 

2572 

E9-E9 

£9-47 

30-28K 

30-32 

30-35 

30-39 



DONE 

3473 

39— IE# 

39-53 







BOWNHI 

5711 

£8-39 

29-E3 

£9-37 

£5-55 

30-29 

64- 3# 



DOUNLO 

5776 

£8-40 

£9-21 

£9-35 

£9-5 3 

30-12 

30-33 

30-37 

50—20 

DPWTEL 

4145 

46— 1 £# 

46-42- 







DOMI 

2717 

31-38 

3E- 4# 







B5LAT 

5751 

£9-19 

31-56 

32-16 

32-22 

64-38# 






63-36# 


6 Q 

■oS 

o z 

O 

33 r° 

iO y 

C ?? 


13 — 37 53-43 54- 5. 58-15 Se-35 58 

35- 4 51-10 51-18 51-55 51-35 51 


59-18 59-55 59-33 59-44 59-51 63 


63-40# 


50-43 51- 5 51-15 65- 5# 


41 

45 

53 # 




BTIM 

1612 

1 -2? 

5- 3 

5-44 

S-40 

DUALP 

4433 

16-38 

24-22 

50- 6# 

5 2-4 

DUMP 

425 

6-57 

7-30# 



BVI5E 

7663 

1-53 

65-42# 



BWLBHI 

5743 

11-44 

16-19 

19- B 

27-10 

BWLBLO 

5744 

11-43 

16-21 

19- 9 

27— 2 

BWPGS 

2274 

11-51 

18-25 

19-10 

26—5 3# 

BWSFIN 

1415 

18-10# 

18-37 



DW5TP 

1434 

10-1? 

18-24 

18-29# 

18-34 

EDBLO 

1750 

14-31 

22-46# 



END5TP 

£775 

32-31 

32-43 

32-4? 

32-57# 

ENBWT 

1753 

2-11 

22-49# 



ERRMSG 

5602 

60-47 

63- 4# 



ERRWRD 

7764 

60-54 

61- 1 

61- 4 

61- 5 

EXECUT 

4000 

4-28 

44- 3# 



exoff 

325 

5-42# 

57-41 



EXPADV 

7677 

3- 8 

10-51 

10-52 

14-20 

EXPNUM 

7715 

14-23 

14-24 

66— 6 


EXPONS 

4250 

10-42 

12-11 

47-29# 

47-36 

F1EL1 

434 

7-43# 

8- 7 

8-45 


FIEL2 

440 

7-4 8# 

8-12 



FIELDS 

447 

7-55# 

8-36 

£1-45 

£i— 54 

F1LSLT 

625 

10-10# 

10-17 



FINAL 

2357 

27-50# 




FIVE 2 

5615 

63-15# 




FIX 

7757 

38-38 

38-5 3 

39-11 

39-19 

FIXWL 

3427 

2-39 

38-32# 



FLAG 

7733 

2-45 

2-47 

8-47 

8-49 

FLAINT 

4263 

45-57 

47—421* 



FLFLAG 

111 

2-36 

2—44# 



FLRT5T 

2010 

23-19 

23-27# 



FOUR 

1716 

3-15 

22-18# 



FOUR1 

2175 

25-40# 

33-33 

36- 8 


FOUR 2 

5614 

63-14# 




GETS 

4401 

6-29 

7- 6 

7-12 

7-17 

GETPRF 

4706 

3-32 

20-30 

53-41# 

5 3-56 

GET5CI 

7651 

48-55 

49- 1 

65-31# 


GON 

506 

B-30 

8-32# 

21-52 


GONE14 

127 

3- 4# 




GOTOO 

476 

4-30 

8-24 U 



GT2FIN 

5267 

45-35 

5e-47# 



GT3F.IN 

5272 

45-37 

58-51# 



6TEU5Y 

3073 

4-55 

30-18 

32-32 

32-50 

GTGWAV 

3 364 

29-10 

37-41# 



HALT 

12 

1-28# 

1 — 3 3 

2-16 

5-22 

HEATP 

5463 

5-25 

16-56 

61-21# 

61-30 

HEATUB 

5677 

5-23 

16-54 

61-22 

61-24 

HELP4 

3021 

32-33 

33-21# 



HELPS 

3027 

32-51 

33-28# 



HELPER 

3071 

34- 6# 




HIEIT 

5605 

41-53 

41-56 

42-51 

44-32 

HIRA5T 

5103 

56-15 

56-20# 



I AND 

4044 

4-39 

44-47# 



INCAB 

4425 

7-27 

49-53# 

50- 1 

56-54 

INJMP 

44 

1-50 

1-57# 

2- 4 

2- 8 

INLHTR 

5501 

2-31 

61-37# 



/INLINE 

INRTN 

71 

1-41 

2-26# 

3- 5 


122 

2-42 

2-48 

2-55# 

39-13 

IRE 3 

5264 

58-13 

58-43# 





20-55# 21-13 25-47 57-47 61-4? 

27-24 27-35 27-50 64-31# 

27-25 27-36 27-51 64-32# 

27—12 27—53 


66-41# 

14-25 14-2? 65-56# 

47-38 

22— 5 44—43 4?— 47 48—41 

3?-36 3?-52 66-35# 

23- 27 25-48 25-50 66-15 


7-22 35- 7 35-17 35-28 49-31# 49-37 

54- 4 54-47 


34- 9# 34-16 35-42 35-52 38- 2 

5—42 36-57 

61-33 61-35 61 -42 

61-38 63-50# 

58-47 58-51 63- 7# 

57-28 
8 — 34 


61-43 




JRLOAD 

514 

5-10 

8 -4 08 





L3A 

4110 

45-368 

58-49 





L3B 

4115 

45-388 

58-53 





LAST 

5700 

14-35 

57- 1 

63-518 




LASTFX 

7760 

39-15 

66-368 





LI'CMD 

S607 

56-49 

30-458 

30-45 

31-17 

31 -25 

33—5 £ 

LDNUL 

5650 

30-55 

31-188 





LEVEL 1 

7 

1-15 

1-548 





LEVEL 3 

4105 

1-17 

45-56 

45-598 

45-31 

61- 9 

61-14 

LIMCHK 

5806 

35-50 

45-49 

45-51 

57— 468 



LIMIT1 

3375 

33-46 

37-558 





LIMITS 

3404 

36-58 

38- 68 





LIMITS 

3416 

36-39 

38-178 





LIMITA 

3514 

35-458 

58-53 





LIMITB 

3555 

35-558 

58-55 





LIODLR 

5555 

56-418 

5 6-5 5 

57 — 56 




LIR 

7701 

4-15 

4-15 

7-48 

7-56 

8-14 

S-S4 

LIST 

6060 

5-54 

3- 3 

44-54 

65-148 



LOOP1 

5505 

59-588 

59-45 





LOOPS 

5506 

59-598 

59-38 

59-39 

59-41 



L00P5A 

5516 

59-56 

59-378 





LOCPSB 

H5£i 

-9— £3 

59-34 

£9-438 




LOOPS 

5557 

59-478 

59-54 

59-56 

59-57 

30- 6 


L00P4 

5545 

30- 58 

30-40 





LOOPF 

3037 

33-368 

38- 1 





LGC'PW 

3165 

35-178 

35-55 





LOWS 

5576 

49-36 

56-53 

56-35 

61-53 

65-36 

65-5*8 

LPC 

7705 

3- 6 

3-37 

3-55 

3-57 

4- 4 

4-10 

LS10HI 

5633 

55-55 

61-10 

63-598 




L5AWRD 

5600 

4 9-43 

63- 18 





LSRET1 

354 5 

36- 6 

36-158 





L5RET5 

355 3 

36-16 

36-188 





LSRET3 

3570 

36-59 

36-358 





LTBCTS 

5676 

54-5 3 

55-31 

47-51 

63-498 



LUPTIC 

5716 

31-45 

35- 38 





Ml 

1785 

6-46 

6-49 

10-43 

15- 5 

15-54 

15-40 



19-41 

50-46 

55-538 




M 1 6 1 6 

1734 

4- 1 

55-348 





MS 

1753 

6-55 

55-548 





M4 

1754 

6-55 

55-558 





M4SD 

1733 

3-50 

55-358 





MAXBI 

7747 

51-36 

66-568 





MA'/BV 

7746 

8-55 

51-59 

51-33 

66—558 



maxex 

7750 

51-39 

66-578 





MAXBY 

7751 

51-41 

66-588 





MAXHI 

7751 

11-54 

66-118 





MAXIC 

7743 

8-51 

55-51 

55-54 

66-558 



MAXIWH 

774 1 

11-51 

53-13 

66-508 




MAXIWL 

7745 

1 1 — 55 

53-15 

66-518 




MAX IX 

7744 

55-57 

66-538 





MAX IV 

7745 

5 3- 5 

66-548 





MAXLO 

7755 

11-55 

66-158 





MAXRI 

775 3 

51-53 

66-308 





MAXRV 

7753 

8-53 

51-46 

51-50 

66-598 



MAXRX . 

7754 

51-56 

66-318 





MAXRY 

7755 

55- 1 

66-358 





MEPA 

3545 

1 1-34 

15-14 

16-53 

50- B 

57-58 

57-43 

MI'PLS 

3764 

4 5-11 

43- 38 

4 3-14 




MDPNOT 

3655 

5S-36 

34-36 

41- 38 

41- 9 

45- 9 



3o— 5 



o 

-n 

•V 

O 

O 

78 


44- 3 61-51 66- 18 



4-50 4-55 5-50 7-43 7-46 S-35 6-33 66- 5# 


15-48 13-10 13-34 14-48 15-40 17-54 17-54 18-39 


31-10 


40- 78 40-30 


51- 6 


55-39 


3d TONEMHO 




MBPS 

35 72 

15-24 

18-5 3 

19-32 

28-10 

31-12 

34-26 

40-328 

41- 1 

41- 8 


mbups 

1467 

16-25 

19- 58 

19-11 

19-34 

20-10 






MEA5UR 

1756 

16-57 

17-30 

18- 4 

19-1 

20-14 

20-50 

23- 13 




MEMDMP 

5151 

2-23 

7-33 

57-128 

57-33 







MICLK 

777 3 

5-16 

48- 3 

48- 5 

48—42 

62—25 

62—34 

66-488 




MIFRM 

4301 

32- 7 

47-55 

48- 18 

48-11 







MINFRM 

4266 

45-41 

47-468 









MINIC 

7736 

e-46 

53-18 

5 3-24 

66-178 







MINI X 

7737 

5 3-27 

66-188 









MINI V 

7740 

5 3-2? 

66-198 









MITIM 

4 340 

4-37 

48-418 









MLTPLV 

3634 

15-35 

41-168 

41-40 

47-13 

51-17 

52-10 

55-56 




MM1620 

5601 

44-14 

63- 38 









MONITI 

20 

1-358 

65-36 









MONITR 

162 

3-31 

3-348 

4-36 

8-34 

8-38 

9-24 

16-57 

16-39 

21-5 0 

22- 3 

MOTOR 

5750 

30-53 

30-55 

31-22 

31-24 

31-26 

31-28 

32-30 

32—42 

32-48 

32-5 3 



33-54 

36-48 

37-55 

38- 9 

38-17 

36- i S 

64-378 




MOVEE 

511 

4-34 

8-368 









MOVIT 

2315 

27- 1 

27- 7 

27-148 








MOVLOW 

2216 

16-56 

26- 48 

26- 1 6 

27-52 







MOVPR 

4734 

20-48 

54-138 

54-51 








MOVWLD 

2343 

26- 7 

27-33 

27-48 

27-568 

30—26 

34- 7 





HP 

5450 

45-55 

61- 98 









MPERR 

5705 

61-11 

61-16 

61-18 

63-568 







MSG 1 

1751 

14-16 

22-478 









MSG10P 

1611 

20-33 

20—5 38 









M5G12 

1752 

16- 7 

22-488 









MSGIHX 

1414 

17-44 

18- 68 









M5G16G 

1336 

16-52 

17- 18 









MSG 16V 

1365 

17-14 

17-328 









MSG170 

5150 

46—45 

57-118 

57-20 








M5G2 

1466 

18-16 

19- 38 









M5G3 

1727 

1-31 

16-33 

22-288 

22-4? 







MSG331 

5001 

54-27 

54-568 









M5G332 

5002 

54-45 

54-578 









M5G6 

1556 

20-12 

20-168 









MSG7 

1557 

l?-36 

20-178 









MTi 

5747 

11-27 

15-11 

16-20 

18-47 

19-30 

20- 6 

27-26 

27 — 37 

28- 4 

29- 3 



40-56 

41- 6 

50-57 

52-32 

55-55 

55-57 

64-538 




MT2 

5770 

11-28 

15-12 

16-22 

18-48 

19-31 

20- 7 

27-27 

27-38 

28- 5 

29— 4 



40-16 

40-2O 

40-39 

40-43 

40—43 

41- 7 

51- 3 

52-30 

62- 8 

62-14 

MT3 

5771 

11-14 

11-33 

11-37 

IS- 6 

15-21 

16- 1 

18-51 

18-54 

19- 6 

19-24 



27-44 

28- 8 

28-14 

28-31 

28—37 

28-54 

31- 5 

31-13 

32-35 

33- 8 



34-40 

35-11 

35-12 

35-32 

35-36 

35-3? 

40-27 

40-2? 

40-53 

40-54 



41-36 

41-55 

42- 6 

42-12 

42-1? 

42-20 

42-34 

42-47 

42-52 

42-54 



43-10 

47-14 

51- 1 

52-16 

52-20 

52-22 

C £_ -?c 

52-40 

56-16 

56-28 



62-21 

62-28 

64-558 








MT4 

5772 

11-15 

11-2? 

11-36 

15- 7 

IS — 16 

15-22 

15-41 

15-48 

15-52 

15-57 



19- 7 

19-25 

20- 1 

24-31 

24-41 

24—48 

25-11 

25-1? 

25 — 26 

27—21 



28—1 3 

28-38 

28-55 

31- 6 

31-14 

32-36 

33- 1 

33- 2 

33-14 

34-28 



35- ? 

35-14 

35-29 

35-34 

35-35 

40- 9 

40-13 

40-21 

4 0-34 

40-38 



42—25 

42-26 

48-30 

42-31 

42-35 

42-37 

42-44 

42-46 

42-4? 

42-5 0 



47-19 

51- 5 

51- 9 

51-14 

51-24 

52- 9 

5 5-12 

52-15 

52-18 

5 2-19 



56- 1 

56- 8 

56-21 

62-24 

62-35 

64-568 


, 



MT5 

5773 

13-11 

13-35 

15- 2 

15-26 

15-33 

15-38 

20—28 

20-31 

24-35 

25-12 



41-31 

41-34 

41-50 

42- 2 

42- 5 

42-13 

42-18 

47-12 

51-16 

51-19 



60-21 

64-578 









MT 6 

5774 

13-54 

14- 6 

23-52 

23-53 

24- 9 

24-10 

31-36 

31-43 

31-4? 

31-50 



4-2—27 

42-5 3 

42-56 

44-1? 

44-25 

44-28 

46-40 

46-41 

46-51 

47- 6 


48-44 56- 6 

32-55 33-34 



62-40 

33-36 33-48 


3 § 

■I 30 

mtv* 

• *J) ,'S 


31- 1 

33-12 

31- 2 

32-57 

62-20 

62—27 

19-57 

27-23 

33-11 

33-13 

40-55 

40-57 

42-5 7 

43- 4 

56-2? 

56-34 

16- 2 

16- 9 

27-30 

27-42 

34-48 

34 — 52 

40-40 

40-47 

43- 7 

43-11 

52-26 

52-37 

36- 9 

36-14 

52- 8 

56-10 

35-18 

35-20 

47- 7 

49-33 


34-2 3 

40-28 

34-24 

40-12 

62-2? 

64-548 

27-29 

£7-41 

34-27 

34-33 

41-20 

41-35 

43- 6 

43- 9 

60-5 3 

60-57 

18-52 

18-55 

£7-45 

28- 9 

34-55 

34-56 

40-4? 

41-22 

43-13 

47- 9 

52-42 

55-54 

36—22 

36-23 

56-11 

60-20 

35-23 

42- i 

49-34 

52-13 




(1T7 

5773 

NEG1 

5610 

NEW 

155 

NEWEL 

156 

NINES 

5617 

NOMOV 

5566 

NONULL 

5765 

NOPRNL 

4765 

NGTCAL 

611 

NTACH 

5675 

NULLHI 

5746 

NULLLO 

5747 

NNTCMI 

505 

DISK 

5634 

01 OKI 

255 4 

01055 

5603 

013 

1663 

0 1 5 OK 

1756 

017 

1744 

0177 

1740 

017763 

174 1 

01777 

1751 

Q1TZ17 

1742 

030 

5545 

037 

1745 

0377 

1747 

03777 

5634 

03755 

5656 

041 

5246 

047777 

1725 

05 

1743 

050300 

5630 

0515 3 

5631 

057330 

5632 

076 

2532 

077 

1746 

0777 

434 4 

07777 

5635 

077777 

5636 

077D5 

5627 

0ESL5T 

6061 

OFFTTL 

7756 

OL 

7704 

OLE' 

5763 

0L5 

7703 

ONE 

1713 

ONE 1 

5173 

ONES 

5611 

OTHER 

51 

OUT 

3300 

PA5CNT 

5703 

PCTOV 

2200 

PFFLAG 

5777 

pi mb;; 

5706 


53-45 

53-46 

65- 38 


47-17 

54-30 

1-55 

3- SB 

3- 38 

8-21 

35-30 

44-12 

58-16 

30-238 

35-25 

35-458 

54-53 

54-388 

9-49 

9-558 

14-5 6 

15-25 

30-56 

31-15 

30-57 

31-16 

3-45 

3-578 

60-5 6 

63- 68 

55-49 

26-398 

58-19 

63- 58 

51-36 

51-438 

4- 5 

52-578 

3- 1 

3- 2 

3-15 

22-388 

8-29 

25-398 

15-31 

17-13 

4-16 

52-408 

26-328 

32-17 

7-50 

B- 5 

2-40 

6-19 

3-23 

13-21 

5 3-49 

5 4-18 

56-338 

29-12 

8-48 

55-268 

10- 7 

52-418 

4e- 9 

4 9-52 

3-18 

5 3-46 

63—588 


54-35 

56-378 

15-54 

22-448 

48-468 

5 4- 8 

49-5 6 

55-44 

11-57 

54-30 

63-558 


4-11 

7-44 

e-54 

16- 4 

8-56 

10-31 

14- 5 

14-26 

9-14 

9-15 

3- 4 

3-46 

3- 7 

4-21 

17-39 

18-12 

25-378 

58-11 

38-32 

38-47 

18-51 

45-19 

60- 5 

63-118 

1-5 5 

2- 68 

36-418 


10-36 

16-31 

54-38 

55-16 • 

1-25 

65- 78 


63—578 


41-19 

41-54 

54-41 

61-17 

44-18 

63-178 


16-17 

44-36 

35-37 

33-57 

35—36 

34- 1 

4-51 


30-19 



8-50 

22-458 

17-43 

20-35 


11-48 

13-14 

7- 2 

8-4 1 

13-44 

50-10 

55-36 

61-53 


57-14 

63-268 

54-52 

63-278 


63-318 

55-10 

63-358 

65-158 

16- 5 

66-348 

10-39 

10-48 

53-40 

44-26 

35- 8 

35-19 

3—5 3 

21- 3 

6- 3 

8-15 

50-24 

20-57 

58-34 

30-15 

39- 8 

39-59 

47 -34 

47-37 

1 8-55 
55-448 

63-548 



41— £7 41-33 41-33 41-54 41-57 44-13 44-23 44-57 49-11 49-15 

53-13*? 


50-49 
36-4 5 

53-Si 

63-488 

39- 9 39-49 

39-50 

64-34 


36-46 

38—50 

38-55 39-33 

39- 3S 

39-39 

64- 35 


3i • 


;E-2S8 


55—438 

15-33 

53-338 

63-548 


15-46 


51-33 


55-458 


11- 7 

il- 3 

11-17 

11-40 

11-46 

47— 4 
35-24 

47-10 

64-498 

50- 8 

53- 4 

53-31 

21- 5 

44-31 

44-33 

66- 38 


9-27 

21-18 

9-35 

21-51 

10-35 

25-158 

10-50 

11-32 

31-29 

35-53 

33— 5 

33-10 

33-51 

39—48 

40-26 

40-55 

45-54 

42 — 36 

47-50 

48- 4 

49-57 

49-55 

50-50 


11-54 

65-51 

11-55 
66- 48 

12-34 

12-35 

13-51 

15-19 

13-16 

13-56 

16-50 

17- 9 

33-58 

33-44 

34-31 

34-47 

34-51 

55-55 

58-16 

56-10 

59-12 

59-36 



* • 


P05NX 

5716 

13-42 

23-11 

52-56 

53-26 

55- 8 

55-11 

POSNY 

5717 

13-19 

23-13 

53- 1 

5 3— 2B 

55-30 

55-33 

POWRUP 

260 

1-12 

4-5 38 

5-32 

37- 1 



PR 1 

4740 

54-188 

5 4-5 4 





PRCFNS. 

1560 

20-218 

20—44 





PRCTRL 

1575 

10-22 

20-368 

20-4 1 




PRC YCL 

5733 

12-26 

20-22 

20-38 

20-4-7 

64 -538 


PRIOR 

5745 

30-50 

31-30 

32-27 

32-40 

32 — 45 

32-56 

PRMTST 

4773 

54-36 

5 4-4 3 

54-498 




PRREFC 

5735 

3-29 

53-55 

54-24 

54-29 

54-31 

54-35 

PWPERR ' 

5704 

4 9-26 

49-26 

63-558 




PMUP2 

265 

1-22 

5- 38 





0CYC5Z 

5732 

12-25 

20-21 

64-228 




QMIFRM 

4317 

32- 4 

4e-208 

48-52 

60-32 



QMTIM 

4345 

48-478 

48-50 

54- 9 

55-15 

55-37 


0STP5Z 

5734 

12-20 

54-16 

64-248 




OTRMIN 

4351 

45-39 

48-528 





RAMP 

3351 

30-36 

34-12 

37-308 




RASH IX 

5720 

55- 7 

56— £2 

56-24 

56-33 

64-118 


RASHIY 

5721 

55-29 

64-128 





RA5LMC 

5054 

13-17 

13-41 

55-528 

56-40 



RASLOX 

5722 

55-20 

5 6—13 

56-16 

56-20 

5 6-30 

56-31 

RA5L0Y 

5723 

55-42 

64-14# 





RAXCEN 

7716 

13-25 

22-30 

56-36 

5 6-37 

66 - 88 


RAXPOS 

1065 

13-248 






RAXUND 

5003 

17-38 

18- 2 

55- 48 

55-ie 



RAYCEN 

7717 

13- 1 

66 - 98 





RAYUND 

5025 

17- 7 

17-29 

55-268 

55-40 



RCGUNT 

3336 

29-14 

29-43 

37-178 




RDIRCT 

4314 

46-168 

48-33 

46-38 

48-39 



RDSIZ 

2210 

25-548 

26- 2 

62- 7 

62—26 



RECHEK 

3104 

34-198 

35-22 





RECOVR 

304 2 

33-398 

58-29 





RED 

3476 

36-34 

39-178 





RENULL 

2625 

30-568 

31-31 





REPEAT 

7770 

10-30 

16-49 

16-51 

66-458 



REFM5G 

1324 

14-22 

14-37 

16-488 




RETN3 

4101 

45-288 

45-44 

4-6— 3 

46- 7 

46- 9 

46-10 

RGTG 

3323 

29- 7 

25-30 

29-43 

30- 7 

31-35 

37 — c 

RPWD 

7772 

21-19 

26-12 

26-13 

26-14 

26-21 

26—2 2 

RUNWLD 

2405 

28-168 






RWEUF 

1731 

7-51 

8 - 8 

22-308 




RWENAE 

2232 

3-16 

3-21 

26-198 

26-25 

28-25 

58-20 

RXCFIN 

1366 

17-368 

17-56 





RXCTRL 

1400 

10-21 

17-478 

17-52 




RXCYCL 

5727 

12-49 

17-37 

17-49 

18- 1 

64-198 


RVCF IN 

1337 

17- 58 

17—26 





RYCTRL 

1351 

10-20 

17-178 

17-22 




RYC YCL 

5731 

12-41 

17- 6 

17-19 

17-28 

64-218 


5ACBLR 

433 

7-25 

7-378 





5AMPLT 

2702 

31-478 

32- 5 

32- 9 




3AVAC 

5572 

45-27 

45-33 

62-428 




5AVI0 

5573 

46-16 

4 3-21 

5 6-36 

56-43 

62-4 38 


5AV5A 

5265 

1-44 

2-5 6 

47-46 

47-48 

47-5 6 

57-44 

SCI 

7700 

1-37 

1-45 

1-47 

2 - 2 

2-10 

2—26 

5C0UNT 

5766 

5- 7 

9-42 

9-45 

9-5 3 

10- 5 

10 - 6 



51-13 

54-17 • 

54-49 

64-528 



SET 1 UP 

520 

6-4 5 8 

44-41 





5ETFR 

267 1 

31-368 

31-45 






55--13 55-16 55-21 64- 93 

55-35 55-38 55-43 64-103 

33-56 36-50 38- 6 38-10 64-338 

54-38 54-42 64-258 



47-44 

49-29 

58-45 

6i- 19 

65-34 

26-23 

28-19 

57-38 

61-39 

66-478 


56-33 53-35 58-448 

2 — 88 61-37 65—31 65—47 65—578 

29-15 29-26 29-40 50-16 50-22 50-26 50-47 51- 4 




SET0T5 

£43 

10-12 

10- £88 





SETUPW 

£72 

10-548 






SEVEN 

172® 

12- 8 

12-18 

55-218 




5EVEN2 

5£1£ 

47- 5 

63-168 





5FTDIR 

4313 

48-158 

48-26 





SGNBIT 

1730 

1-46 

2-27 

£ — 46 

4-19 

5-19 

2S-298 

SIGMA 

4£1 3 

50-44 

50-48 

55-298 

52-44 



SIHCLR 

5 £££ 

46- 5 

58-408 





SIX 

1717 

15-44 

15-47 

15-53 

15-56 

£5-198 


SIZE 

5512 

4-3B 

61-478 





SIZOFF 

5570 

£2— £ 

£2-10 

65— 1 9 

£2-398 



SLACK 

3322 

27-14 

27-20 

37- 48 




5LSF 

5510 

61-458 

62-12 





SLSR 

5511 

£1-468 

£2-16 





5MA5K 

1732 

1-38 

22-318 





5MP05N 

3176 

34-25 

35-278 

35-40 




SHRi 

4050 

45- 23 

45—22 





SMVAL 

577£ 

45- 2 

45- 7 

45-10 

45-15 

45-16 

£5- 68 

SMWLB 

3103 

5-10 

30-23 

34-188 

34-30 

36-51 


SMBMSG 

5403 

4- 7 

16-5 3 

17-15 

17-45 

18-17 

50-34 

SPCi 

5£50 

9- 3 

16-35 

23- 8 

24-19 

5 O - i 7 

50-33 

SPCS 

S£51 

23-10 

S0-23 

50-27 

5 1 -52 

£3-428 


SPX 

5£52 

23—12 

51-38 

51-55 

63-438 



SPY 

5 £5 3 

23-14 

S 1—40 

51-57 

£3-448 



SRVOCF 

5574 

52- 7 

£2-538 





START 

4££ 

4-29 

8-148 





STEP1 

247 3 

29-178 






5TEPA1 

2771 

35-4 7 

32-538 





STEPF 

33£7 

58-48 

36- 5 

37-488 




STEF'OK 

2751 

32-29 

35-358 





STEPR 

3370 

28-45 

35-49 

37-498 




STPMAX 

3425 

37-56 

38-19 

38-258 




STF'NaL 

34S£ 

38-11 

38-568 





5UBE 

4041 

4-33 

44-438 





TBMILI 

5577 

49-17 

£5-578 





TANBM 

1774 

23- 6 

53-158 





TCYC 

5737 

12-14 

14-44 

14-51 

14-55 

50-38 

64-578 

TCYCSZ 

5736 

12-13 

14-54 

64-268 




TEMP 

7774 

2- 1 

5- 3 

57-55 

S 7-5-6 

65-45 

65 — 46 

TEMFB 

1710 

6-31 

6-35 

22-118 




TEMPI 

7775 

1-36 

£-55 

66-508 




TEMP J 

7776 

4-17 

4-18 

7-55 

7-5 3 

7-5 4 

8- 9 



38-52 

39- 3 

39-13 

39-24 

39—35 

39-43 

THERE 

SS56 

29-25 

30-158 





THREE 

1715 

1-49 

5- 7 

5-19 

9-13 

11-42 

55-178 

THREE1 

2242 

26-293 

35-38 

36-55 




THREES 

5£1 3 

48- 8 

61-15 

63-138 

65-44 



THRSHI 

7720 

50-59 

50-34 

66-108 




TINTN 

45£3 

51-31 

51-43 

51-43 

55- £8 



TM5UB 

57£1 

S3- 7 

54- 5 

£4-24 

£4—56 

£4-29 

£4-43 

TM3WD 

57££ 

S3- 9 

24- 3 

£5- 4 

55- 8 

55- 9 

55-51 

TOPI OH 

5£07 

47 — 5 5 

53- 5 

5 3-35 

£3- 98 



TGPFOR 

5 £0£ 

£0-55 

63- 88 





TOTBLH 

5712 

15- 9 

16-15 

44-39 

55-34 

5 5—41 

£4- 58 

TOT ELL 

5713 

15-10 

16-16 

4-4--* 4-Q 

55-36 

5 5-43 

64- 68 

TGTRBH 

5714 

IS- 4 

15-19 

16-13 

44-37 

64- 78 


TOTRBL 

5715 

15- 5 

15-50- 

16-14 

44-38 

64- 88 


T5CTRL 

1 1£G 

10-55 

14-458 

14-46 

14-55 

15- 1 

16-56 

TSTB 

31 £ 

1-SI 

5-31 

5-348 

5-40 




£5-198 60-53 

5i-35 55- 3 



£3-418 


££-498 


S-10 £1-47 

4-4 — 44 44 — 48 


c4— 5 0 84-5 £ 

£5 -SB £5—30 


£1-55 ££- £ 

£1-54 £1-55 


£4—54 5£— 47 

£5-3£ 58-5S 


SB— £2 SB-E3 

£2-13 ££-518 


SB-48 £4-4£3 

£4-478 


3B— 37 3B— 43 




TWO 

1714 

3-20 

9-20 

9-56 

14-10 

22-168 



TW02 

5612 

50-46 

5 3- 9 

53-36 

59-36 

60- 1 4 

62- 3 

63-128 

TWC'Dl 2 

& 620 

5 3- 6 

53-33 

63-188 





TWOD1E 

5621 

31-27 

54-34 

55-14 

53- 3 

63—1 98 

65-48 


TWODi 6 

5622 

4 1-21 

42-10 

53-42 

63-208 




U2M5B 

5 275 

24-2* 

24-42 

24-49 

57-23 

58-558 

59-14 


U3M5G 

5323 

25-17 

25-20 

25-27 

57-29 

59-238 

59-40 


UERROR 

5425 

4-47 
61- 7 

4-49 

8-23 

35—4 3 

35-53 

38- 3 

38-14 

UND420 

3475 

26-26 

33-39 

38-158 





UNHSK 

1711 

5-17 

6-34 

7-31 

22-138 




USMR 

4051 

5-36 

6-40 

21-37 

24—33 

25-56 

35-31 

45- 38 

U5M5G 

5 35 3 

1-32 

4-13 

14-17 

16- 6 

16-10 

16—34 

19-37 



59-498 

60- 9 

60-11 

60-22 

60-48 

61— 6 


UWTB 

4365 

4-57 

5- 6 

5- 9 

49-168 

49-1? 



UWTONE 

4 371 

5-43 

33-35 

34- 6 

36-10 

36-13 

36-33 

49-218 

UWT>{ 

4360 

3-19 

3-24 

3-28 

6—35 

13-22 

13-45 

21-34 



49-23 

53-47 

54-11 

5 4-5 3 




VECTOR 

6000 

3-54 

65-108 






VELC 

4502 

50-31 

50-36 

50-40 

50-568 




VELOC 

5575 

.51-15 

62-548 






V FAULT 

4375 

45-53 

49 - 26 * 






WAIT 

307 

3-41 

4-48 

5-228 

5-47 

66-5.3 



WANT HI 

5763 

26- 5 

27-31 

27-46 

26- 6 

64-438 



WANTLO 

5764 

26- 6 

27-32 

27-47 

28- 7 

64-508 



WLCYC 

5742 

12- 4 

IB-11 

15-31 

13-40 

64-308 



WLCY5Z 

5741 

12- 3 

18-10 

64-298 





ML SC AN 

7763 

11- 6 

16-45 

18-14 

18-15 

66-4G8 



WH5G4 

3365 

33-24 

37-458 






WM5G5 

3366 

33-31 

37-468 






>ICMD 

5252 

30-47 

30-49 

33-37 

33-38 

33-51 

58-288 


XCYC5Z 

5726 

12-50 

13-29 

17-36 

64-188 




X FLARE 

124 

1-54 

3- 18 






>;ind>: 

5707 

64- 18 







YCYCSZ 

5730 

12-42 

13- 5 

17- 5 

64-208 




VES5TP 

2724 

29-20 

29-34 

29-52 

30-11 

32-118 

33-19 


YIND>! 

5710 

64- 28 







ZERO 

1712 

B- i 

6-18 

13-40 

15-51 

22-148 



ZEROi 

224 1 

23-36 

26-288 

29- 5 





ZER02 

4153 

46-208 

50-42 

58- 1 







38-22 

45-12 

54- 3 

5 6- 5 

60-468 

60-50 

61- 2 

45-14 
2C- 1 3 

53-50 

22-50 

54-19 

33-25 

58- 9 
33-32 

54-28 

54-46 

5 6—5 6 

49-24 

28—29 

61-50 

2O-20 

33-40 

36-20 

49-108 

49-14 

49-18 
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DMA BLOCK CONTENTS 


,/i-jeC VWfioi-3 

SYMBOL 

ADDR 

TM MINOR 

CM OFFSET 

COMMENTS 

^ . _ . . . » 

sssssa 

== = = = 

II 

u 

II 

II 

II 

II 

II 

II 


======== 


SCI 

7700 

2/3 


WORD LOADED BY OBC 


LIR 

7701 

4/5 


LIST INSTR. REG. 


LPC 

7702 

6/7 


LIST PROGRAM CNTR. ■ 


OLS 

7703 

8/9 


OBSERVING LIST SEG. 


OL 

770 4 

10/11 


OBSERVING LIST UD. 1 


OL+1 

7705 

12/13 


PETS/FORMAT 


OL+2 

7706 

14/15 


UL INCRS 


OL+3 

7707 

16/17 


UL POSN/OFSET 


OL+4 

7710 

18/19 


EXPMT REPS/UL MSB 


0LP5 

7711 

20/21 


PSQ/UL INC/P INC/T INTVL 


OL+6 

7712 

22/23 


RAS X Q/RAS Y Q 


OL+7 

7713 

24/25 


X INCR/Y INCR/CAL OFS 


OL+8 

7714 

26/27 


GATE TIM CNT /SERVO ADJ/CLK 


EXPNUM 

7715 

28/29 


EXPERIMENT NUMBER 

XPOSN 

RAXCEN 

7716 

30/31 

0 

X RASTER CENTER 

X P DON 

RAYCEN 

7717 

32/33 

1 

Y RASTER CENTER 

X T k-»R_SH 

THRSHI 

7720 

34/35 

2 

SERVO COUNT THRSHLH 


MAXHI 

7721 

36/37 

3 

GLOBAL ULD OFFSET HI BITS 

M Ay L 0 

MAXLO 

7722 

38/39 

4 

GLOBAL ULH OFFSET LO BITS 

*1 

'R1 ' 

7723 

40/41 

5 

USER REGISTERS 


'R2' 

7724 

42/43 

6 



'R3' 

7725 

44/45 

7 



' R4 * 

7726 

46/47 

10 



■ 'R5' 

7727 

48/49 

11 



'R6' 

7730 

50/51 

12 



' R7 ‘ 

7731 

52/53 

13 


# 

'R8' 

7732 

54/55 

14 



FLAG 

7733 

56/57 

15 

FLARE CONTROLLED FLAG WORD 

-FLfl^c x 

FLARX 

7734 

58/59 

16 

X FLARE COORDINATE (HXIS) 

FlA-rev 

FLARY 

7735 

60/61 

17 

Y FLARE COORDINATE CHXIS) 

IMIN 

MINIC 

7736 

62/63 

20 

MINIMUM INTEN COUNT / 2 

rrtltss 

MINIX 

7737 

64/65 

21 

MINIMUM INTEN X POSN 

IrlLN'V 

MINI Y 

7740 

66/67 

22* 

MINIMUM INTEN Y POSN 

WM RX HI 

MAXIUH 

7741 

68/69 

23 

MAXIMUM UL HIGH BITS 

S-/M h* LO 

MAXIUL 

7742 

70/71 

24 

MAXIMUM UL LOU BITS 


MAXIC 

7743 

72/73 

25 

MAXIMUM INTEN COUNT / 2 

x max* 

MAXIX 

7744 

74/75 

26 

MAXIMUM INTEN X FOSN 

iMAxy 

MAXI Y 

7745 

76/77 

27 

MAXIMUM INTEN Y POSN 

•BM/VX 

MAXBV 

7746 

78/79 

30 

MAXIMUM BLUE SHIFT 

a nxix'i 

MAXBI 

7747 

80/81 

31 

MAXIMUM BLUE COUNT / 2 

UMf! XX 

MAXBX 

7750 

82/83 

32 

MAXIMUM BLUE X POSN 

BM/i xy -■• 

MAXBY 

7751 

84/85 

33 

MAXIMUM BLUE Y POSN 

RMAX 

MAXRV 

7752 

86/87 

34 

MAXIMUM RED SHIFT 

RMF.xl 

MAXRI 

7753 

88/89 

35 

MAXIMUM RED COUNT / 2 

RMAXX 

MAXRX 

7754 

90/91 

36 

MAXIMUM RED X FOSN 

■R.MFXY . 

MAXRY 

7755 

92/93 

37 

MAXIMUM RED Y POSN 


OFFTTL 

7756 

94/95 


SERVO OFFSET TOTAL 


FIX 

7757 

96/97 


ULI* FIX SIZE FROM GND CMD 


LASTFX 

7760 

98/99 


LAST ULD FIX VALUE USED 


AULDHI 

7761 

100/101 


ULD ACTUAL POSITION HIGH BITS 


AULDLO 

7762 

102/103 


ULD ACTUAL POSITION LOU UORD 


ULSCAN 

7763 

104/105 


WAVELENGTH SCAN COUNTER 


ERRURP 

7764 

106/107 


ERROR MESSAGE SENT LAST 


CFRCYC 

7765 

108/109 


POLAR I METER PASS COUNTER 


CXCYCL 

7766 

110/111 


X RASTER PASS COUNTER 


CYCYLL 

7767 

112/113 


Y RASTER PASS COUNTER 


REPEAT 

7770 

114/115 


EXPERIMENT PASS COUNTER 

’ 

ACONFC 

7771 

116/117 


DETECTOR CONFIGURATION 


RPUD 

7772 

1 18/119 


RASTER/ULD POWER CONDITION 


MICLK 

7773 

120/121 


MINOR FRAME COUNTER 


TEMP 

7774 

122/123 


MONITOR SAVE LOCATION 


TEMPI 

7775 

124/125 


INDEX SAVE LOCATION 


TEMPJ 

7776 

126/127 


TEMPORARY STORAGE LOCATION 


BSYGN 

7777 

0/1 


SERVO GAIN FACTOR/BUSY (SIGN) BIT 
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APPENDIX 4 

EXPERIMENT OPERATIONS FACILITY 
INTERFACE UNIT (EOFIU) 



REVISION 4 


ORKa^ 5 - "Ph&l; ' 
OF POOR QUALITY - 


SOLAR MAXIMUM MISSION 

PRINCIPAL INVEST IGA 
EXPERIMENT OPERATIONS FACILITY INT 


(SMM) 

TOR 

ERFACE 


UNIT 


(EOFIU) * 



The following is a summary of the format in which data will ,~ 
be provided to the SMM Principal Investigators (experiments) 
in the Experiment Operations Facility (EOF) at the output of 
the EOF Interface Unit (EOFIU): 

a. Three lines will be provided to the experimenters (Fig- 
ure 1). The signals will be output to the user from 
line drivers. The schematic for these line drivers is 
shown in Figure 2. 

(1) clock (continuous, with transitions in the middle 
of each data bit) (Figure 3) 

(2) data (bursted) 

(3) block envelope _ 

b. Minor frame synchronized SMM data will be bursted to 
; the experimenters four contiguous miner frames at a„ 

■| time at 224 kbps (18.3 ms). The interval between 
; blocks of bursted data will vary from a minimum of 3 
ms. to a nominal maximum of 238 ms. '! 

c. The average data rate from the output of the EOFIU to 
the experimenters will vary from 16 to 191 kbps. 

d. Data within the four minor frame blocks from SMM Integra- 
tion and Test (IRtT) will be contiguous and the same type 
from block to block. The bursted data within each block 
will be the same number of words and in' the same format 
as during operations. The average data rate from the 
output of the EOFIU to the experimenters will be 16 kbps. 

e. During operations, the data within the four minor frame" 
blo.cks will be contiguous and the same type. Each block, 
however, could be different and be coming in from a 
different Spa.ce Tracking ar.d Data Network (STDN) site. ' 
Two types of data can be received at a time from block 

to block from any one STDN sice, and data from up to 
three sites can be received from block to block [i.e., 
one block would be real-time (forward) telemetry data 
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EOFIU Output Signals to Users 






from the first site, the next block could be on board ■ *. 
computer (OBC) data dump from the first site, the next 
block could be playback (reverse) telemetry data from 
a second site, and the fourth block could be playback 
High Altitiude Observatory *(HAO) data from a third site] . 
Any combination of data types (maximum of four) could ' - 
be received. 

f. In order that the experimenters may distinguish between 
data types, forward/reverse, and end of data, four words* 
will be used. 

(1) SMM telemetry word 3 bits 3 and 4 each will be 0 
• during HAO data. The other bits can be 1 or 0. 

(2) SMM telemetry word 3 bits 3 and 4 will be 01 for 
engineering telemetry format. The other bits can 
be 0 or 1. 

(3) SMM telemetry word 3 bits 3 and 4 will be 10 for 
science telemetry format. The other bits can be 
0 or 1. 

(4 ) SMM telemetry word 3 bits 0, 1, 2, 3, and 4 will be 

-- — 10011 during flexible format telemetry. - The other 

bits can be 1 or 0. 

(5) SMM byte 3 (3 bit byte) will be 00011000 during 

... . . OBC dump. ' The EOFIU will add the ones to‘~the OBC 
third byte. Bytes 0, 1, and 2 will be SMM sync. 

(6) SMM telemetry word 3 will be 11111111 for the 
EOFIU tdst pattern. 

(7) SMM telemetry word 67 bit 0 will be a 1 during dwell 
mode. Bits .1-7 will be dwell identification. 

(3) SMM telemetry words 3 and 9 will be modified 

except during KAO data, dwell mode, and OEC dumps. 

g. Y/ord 8 will be source identification (STDN site ID), 
word 9 will contain flags, words 0, 1, and 2 will be 
SMM telemetry minor frame sync and words 3, 4, 5, 6, 7, 
10-127 will be SMM data. 

h. Word 8 will allow the experimenters to keep track of 
each data source (possible two data types per source) 
and by also using word 9, the Principal Investigator 
(PI) will be able to determine the type of data from 

that source. 


CRIGsiMAL PAGE- id 
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i. T/ord 0 will be set up by the EOFIU such that bits 0, 1, 

2, 3, 4, 5, and 6 will be flags. Bits 6 and 7 have not 

been designated at this tine. For each block that is f 

. . . transmitted to the experimenters, word 9 bits 0, .1, 2, 

3, 4, and 5 will be set by the EOFIU as follows: 


Designation 
Not end of data 
8 * 

Forward data 
Reverse data 
EOFIU self-test mode 
S/C I&T and operations mode 
Polynomial check good 
Polynomial check bad 
Full NASCOM block 
Partial NASCOM block 
Real-time telemetry 
Playback telemetry 


Bit 0 1 2 3 4 5 - 

0 - - - 

% - - - 

0 
1 

0 

- 1 

- - 0 

- - 1 



j. Bit 0 in word 9 will be set up to zero in all blocks 

bursted to the experimenters except for the last block. 
In the last block. of that transmission for that data 
type from tha,t STDN site, bit 0 or word 9 will be set 
to a one. 


k. The word order and number of words in each block bursted 
to each experimenter will be as follows: 


(1) 

Y/ords 

o, 

1, 

2, 

3— 

127 

(2) 

V/ords 

o, 

1, 

2, 

i 

3— 

127 

(3) 

V/ords 

0, 

1, 

2, 

3— 

127 

(4) 

V.'ords 

0, 

1, 

2, 

3— 

127 
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There will be a total of 512 words in each block bursted 

to each experimenter. Each word will have 8 bits and be 

in bit order 0 (MSB), 1, 2—7. • 

l. ; Data can be received by the EOFIU in forward or reverse. 

order (spacecraft, realtime or tape recorder playback). 

In both cases, blocks bursted to the experimenters will 
be sent word order and bit order in the forward direction 
as per above. Minor frame order, however, will be dif- ~ 
ferent. (During forward data, minor frame order will be 
0, 1, 2, 3, 4 — 127. During reverse data minor frame ' 
order will be 127, 126, 125, 124, 123—0. 

m. '.The EOFIU has a self-test mode which will generate two 

| test patterns. These will be two fixed-dummy NASCOM i 
'.blocks. One will simulate forward data, and the other * 
will simulate reverse data. These blocks will be bursted' 
to the experimenter just like real data at 224 kbps. 

The details of these patterns are provided in Tables 
1 and 2. The experimenter will use these patterns to 
check out and. verify the EOFIU/ experimenter interface 
during equipment installation and checkout and during 
trouble analysis. During operations, the experimenter 
may want to reject these patterns or use them for an 
automatic test whenever these patterns are on the line 
for trouble analysis. 

n. The NASCOM data blocks from STDN have polynomial error 
control checkbits within each block. The EOFIU will 
perform a poly-check on each NASCOM block, compare this 
check with .the STDN' error control checkbits and provide 
the experimenter with the results of this comparison. 

If this polynomial check is bad, any data within that 
block can be bad' and the experimenter may reject it. 

o. If there is any data dropout at the STDN site, that 
site will send partial blocks to the users. This means 
that a block can include one, two, three and a partial 
fourth minor S.MM frame or a partial of any SUM minor 
frame. During a data dropout, any combination of partial 
SMM minor frames can be received. The rest of the data 
within that. block can be random bits, old data, or 
someone elses data. The experimenter may want to reject 
these data. 

p. Some experimenters may want to process the SMM real-time 
telemetry in near realtime and the playback telemetry 

at a later date. Word 9 bit 5 will allow the experi- 
menter to automatically distinguish between these data. 
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Table 1 

EOFIU Test Pattern iformal Forward Output 


Subframe 1 

Subframe 2 

•Sub t rame 3 j 

Subframe 4 


lul 


Octal 


Octal 



Vord 

Du i ;i 

Tord 

Data 

■ford 

Data 

ftord 

1E&9W 

0 

372 







1 

363 







2 

010 





* 


r> 

377 







•i 

200 






« 

5 

100 







6 

300 







7 

040 







S 

24 C 







Q 

030 






. 

10 

340 







li 

020 







12 . 

220 







12 

120 







1! 

220 







15 

060 







16 

260 







17 

160 







1ft 

360 

Same as 

column 1 

Same as 

column 1 

Same as 

column 1 

‘ 10 

000 






- 

20 

CIO 





- 


21 

004 







22 

Oil 



* 




23 

002 





* 


24 

012 







25 

006 







25 

016 







27 

oni 







2ft 

Oil 







29 

005 







30 

015 







31 

003 







32 

013 







33 

007 







34 

017 







35-61 

252 







65 

200 

65 

100 

€5 

300 

65 

040 

66 

377 







67 

177 







68 

200 







6S-127 252 







l 








Nolo : 

v.urtis 

0 

I 

1 2 

1 are SMI* 

_ Subframe sync 



372 

3S3 

i 0*10 




11111010 

11110011 

| ooionooo 



^Bit 0 is the first bit transmitted to the expor im.cn tPr 


8 







2:Z2i, 
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Table 2 

Pattern Normal Reverse Output 


Subframe 1 

Kurd 

Oc r. a 1 
Data 

0 

372 

1 

353 

2 

040 

3 

. 377 

4 

200 

5 

100 

6 

300 

7 

040 

S 

245 

£> 

304 

10 

340 

11 

020 

12 

220 

13 

120 

14 

320 

15 

060 

16 

260 

17 

160 

IS 

3 60 

10 

000 

20 

010 

21 

004 

22 

014 

23 

002 

2 1 

012 

25 

006 

26 

1)16 

27 

1)01 

26 

01 1 

20 

005 

30 

015 

31 

oo:s 

32 

013 

33 

007 

:n 

017 

35-64 

252 

65 

040 

56 

377 

07 

177 

66 

200 

60-127 

252 


Subframe 2 


Subframe 3 


Subframe 4 


Octal 

Data 


Octal 

Data 



Of t a 1 

ford 

Da t :1 


Same as column 1 


Same as column 1 





















) 



The clock envelope will be activated at the beginning 'of 
the transmission of the first bit in that block (bit 
zero of word 0) and will end with the end of the last 
data bit in the last word of the fourth minor frame 
(bit 7 of word 127). This envelope will be the same 
signal level as a clock bit. 
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APPENDIX 5 
ACQ 




Running ACO 


Starting up 


OMGRML re. e* (s 

OF POOR QUAtiTY 


It Is first necessary to Install the various tasks that Interact with 
each other In the data acquisition process If this has not already been done. 
Type the following: 

LOG 200,204 
ASN DB0:«SY: 

0INSACO 

The command file INSACQ Installs the tasks and Insures that the disk files 
MAJORS. RAW and ODDBALL. RAW are unlocked. Now type 

RUN ACQ 

ACO should respond with the following question: 

ENTER S FOR SCIENCE ONLY, F FOR FLEX ALSO, E FOR ENG. .FLEX, & SCI. 

The answer determines the type of data that will be accepted for processing. An 
S response allows only science mode data, an F allows both science and flexible 
format, and an E allows science, flexible, and engineering. After you respond, 
the next question 'Is: 

DO YOU WANT TO BYPASS SOURCE CHECKING CY OR NJ 

i 

You would normally answer N. A yes response may be necessary to record some 
types of I 4 T data since the interface unit does not Insert a source code In 
this mode and the source byte may therefore not be constant. A yes response 
should never be made If more than one source Is expected. The next question: 

DO YOU WANT STASH (POSITIONAL MODE)? 


should be answered with a Y to choose the positional recorder. If you answer 
N, the following question appears: 

DO YOU WANT THASH (SEQUENTIAL MODE) ? 

Enter Y for the sequential recorder. Enter N only If you want no recording 
! at all. 

| 

j The next question to be answered depends on your choice of mode made above 
If STASH was chosen you should see: 

! ENTER FIRST LEGAL FRAME # (21 BITS MAX) 


Your answer determines the smallest major frame # that STASH will consider , 
for recording to disk. The value must not exceed 2097151, which Is the 
maximum possible major frame number. The next question for STASH is: 


LAST 

?> 



ORIGINAL 'PAGfr'IS 
OF POOR QUALITY 


n . 

The answe. a ermines the lest major frame to be considered. In S...iH the 
actual record used for a legal (l.e., within the above limits) major frame 
# Is the major frame modulus 11000 plus 1 or. REC # * Modi mf#, 1 1 > ♦ 1 . 

Hence if limits are set from 100 to 20000, frames 200 and 11200 would be 
candidates for the same record. 

If THASH Is used the following question appears: 

ENTER OFFSET FOR DISK 
?> 


Your response determines the first record to use for the first received 
major frame. Subsequent major frames are recorded In order of reception 
In the following records. 


Run Tina Commands 


original 

OF POOR 




While ACQ Is running. It can accept several commands to allow operator 
Interaction. Each of these options Is Initiated by a single Input character 
(without a carriage returnl). Depending on the option, there may then appear 
some questions to answer. The options are listed below under the initiator 
character. 


L - change limits. This works only when STASH is running. When accepted, — 
the questions concerning the first and last legal major frame # appear. You 
answers change them. 

T - change time between status reports. The following query appears: 

ENTER STATUS INTERVAL IN MINUTES 

?> 

Your answer must be In Integer minutes (fractions are not allowedl). 

? - give an Immediate status report. The program will also check for 

expired sources. 

A - change acceptance mask. The science, flex, engineering question will 
reappear, allowing you to enter a new answer. 

C - clear a section of the major map. Normally when data Is recorded 
the records are write protected via a map In core. Hence, a 
re-transmission or a wrap-around would not be recorded. The map Is 
always cleared when ACQ Is restarted. The C command allows run time 
clearing (or unprotect 1 ng ) of a portion of this map. You must answer 
the following: 

ENTER FIRST MAJOR TO CLEAR 
7> 

LAST 

?> 

Modulus 11000 of your answer is used'. 

P - protect a section of the major map. This Is the complement to the 

C command. Similar questions are asked. This could be used to protect 
previously recorded data. 


ESCAPE KEY - kill current messages. The message buffer Is forced empty, 
stopping any accumulated messages. Subsequent messages will be 
printed out. This command Is also used to recover from the kill all 
message command below. 

CONTROL K - kill all current and future messages. Type a CONTROL K when 
the clattering of the terminal Is driving you crazy. It Is also 
useful If you ran out of paper, or for overnight. Status reports 
are still printed. To reactivate messages, type ESCAPE KEY. 


Stopping ACQ 


-X)>: 


T 


ACQ will perform an orderly exit, closing files and aborting tasks, when 
you type control z. If this doesn't work try typing 9DB0: I200,204IABO on any terminal. If th« 
system can’t get this command file started, try to abort the Installed tasks 
Individually starting with SNAT as follows: 

ABO SNAT 
ABO STASH 
ABO THASH 
ABO ACQ 


Then unlock the files: 

PIP OB0: [200,2041* . RAW/ UN 

If all falls, re-boot the computer and start over with 9INSACQ when you need 
ACQ again. 
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3.3 PROJECT DATA FORMATS 

The project data formats (PDF's) for SMM-A are as follows: 

PDF- A is designed to contain real-time 16 kbps data in a forward 
direction. 


• PDF-D handles the 32 kbps onboard computer data dump, and is sent 
simultaneously with format A in a forward direction to GSFC. 

• PDF-C handles High Altitude Observatory (HAO) real-time data at 
25G kbps, as a backup mode of operation in the event that the HAO 
recorder becomes inoperative. These data will be input to the Digital 
Data Processing System (DDPS) at 128 kbps and transmitted to GSFC 
in the forward direction. 



PDF-D contains spacecraft recorder dump data at 512 kbps (these 
data will be analog recorded and input to the DDPS at 123 kbps, and 
transmitted to GSFC in reverse order). 


• PDF-E contains HAO recorder dump data at 512 kbps (these data will 
be analog recorded and input to the DDPS at 128 kbps, and transmitted 
in reverse order). 


PDF-F contains spacecraft recorder dump data, with the same 
characteristics as PDF-D except the transfer to DDPS is at 256 kbps. 


o PDF-G's HAO recorder dump data have the same characteristics as 
PDF-E except the transfer to DDPS is at 25G kbpst" 


— :£> ■ o PDF-H will contain spacecraft recorder dump data at 512 kbps (data 
will be analog recorded and played back in reverse ogder at a 12:1 
reduced speed from the recorder). The playback data rate of the 
analog tape will be 42. GGG kbps. 

o PDF-I contains HAO recorder dump data at 512 kbps (data will be 
• analog recorded and played back in reverse order at 12:1 reduced 

speed from the recorder; tne playback data rate of the analog type 
will be 42. GGG kbps). 

“ "&* 9 PDF-J contains spacecraft recorder dump data at 512 kbps (data will 
be analog recorded and played back in reverse order at G:1 reduced 
speed from the recorder). The playback data rate of the analog tape' 
will be S5. 333 lips. 


• PDF-K contains HAO recorder dump data at 512 kbps (data will be 
analog recorded and played back in reverse order at 6:1 reduced 
speed from the recorder). The playback data rate of the analog 

■ tape will be 85.333 kbps. 

• PDF-L will be real-time data at 1 lips. This is an emergency 
format and will be used to sync the OBC dump in the event it gets 
out of main frame sync with the real-time 1G kbps data (data will 
be in a forward ciirecdon and should be transmitted off station of 
1 block per second). 

PDF's C, D, and E can be direct from an analog tape or from digital tapes. 
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Figure 5-5 


SMM-A Project Data Formats D, F, H and J, 
Playback Data 512 kbps from Observatory 
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Table 3-1 

SMM-A Minor Frame Telemetry Format Mode 2 


Table 3-1 (continued) 
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APPENDIX 6 


DATA TAPE FORMATS 



R. Shine 
October 27, 1983 


- Reading UVSP Data Tape 


1 OVERVIEW • ..... 

The data from the Ultraviolet Spectrometer and Polarimeter (UVSP/ on 
board the Solar Maximum Mission satellite are organized as experiments which 
are archived on magnetic tapes. The format for these experiments was choosen 
to be consistent with that of the Colorado experiment on QSO-8 in order to 
allow easy adaptation of software already written for the earlier mission. 
The processing of the data was done using a PDP 11/34 computer running the 
RSX-11M operating system which determines some of the physical organization of 
the tapes. Users of either PuP's running RSX or VAX's running VMS should have 
easy access to the data tapes using software developed by the UVSP experiment 
team. Such users may have no need of this document. 

Those interested in accessing UVSP without a machine that accepts the 
already developed software are advised to read both sections 2 and 3. Section 

2 describes the physical format of the tapes and how to organize the data into 
experiments consisting of logical blocks of 512 bytes. Section 3 describes 
the contents and organization of each logical block in an experiment. Those 
who are able to easily copy the tape files onto disk may only need information 
from this section. Section 3 would also be necessary for anyone interested in 
developing independent software for manipulating UVSP data. 


2 PHYSICAL TAPE FILES AND RECORDS 

The tapes will generally be labeled with the experiment numbers contained 
on the tape. About 16,700 experiments have been run but not all are available 
because of telemetry gaps, etc. -The tapes are 9 track 1600 bpi but other 
formats may be available on request. 

The tapes are supposed to be a level 3 implementation of the June 19, 
1974 Proposed Revision of the ANSI Standard Magnetic Tape Labels and File 
Structure for Information Interchange ( X3. 27-1969) . If software is available 
to handle such structures, you may consider using it. If not, use the 
following guide to read the tapes and strip out the actual data contents. The 
tape structure is as follows: 


1 



ORIGINAL PAGE' : IS 

OF POOR QUALITY 


f ile # 

record » 

# bytes 

contents 

1 

- - - 1 

80 

volume label 1 


2 

80 

(2 records) 


- - 3- 

80 

label for first 


4 

80 

file (2 records ) 

2 

1 

512 

first data file/ i 


2 

512 

contain from 3 to 


3 

512 

over 800 records 



512 

depending on amou 



512 

data» each record 



512 

512 bytes long 

3 

1 

80 

end of file label 


2 

80 

(2 records) 

4 

1 

80 

file label for 


2 

80 

second file 

5 

1 

512 

512 

second data file 


more groups of 3 
tape files for each 
experiment file 


terminated by double end of file 


All of the tape records which actually contain the experiment information have 
a length of 512 bytes. (This is not true of all ANSI tapes but is the 
standard for UVSP tapes). The SO byte records just contain various labels. 
The only information in these labels of interest for UVSF tapes is the file 
name which is ASCII encoded in bytes 5 through 21 of the first record in each 
file label (bytes 1 through 4 contain the characters HDR1>. This file name 
would be useful if several files were read from a tape and stored on disk but 
it is not necessary to identify the experiment. 

There are possible exceptions to the structure shown above. Sometimes a 
tape may appear to have extra fiie(s) at the beginningr usually because of an 
error in positioning the start of tape. Anything before the first 80 byte 
record should be ignored. Sometimes a tape may have errors resulting in 
records with 1 byte more than they should have. Usually it is safe to just 
ignore the last byte. 



To read the tapes on an arbitrary system; the programmer should have a 
routine which can • read a tape record of length 512 bytes or less and return 
the actual length as a parameter. The experiments can then be easily 
identified as files which contain records of 512 bytes each. Any file which 
contains such records is a data file; any other file is a label file and can 
be ignored or used as desired. The number of records in an experiment file 
should always be 3 or more. The largest files can reach 800 or more records. 
The data is interpreted as 16 bit words (except for a few items in the 
headers) which may require byte swapping. On these tapes the first byte 
always represents the least significant bits of the 16 bit word while the 
second is the most significant bits. Many non-DEC machines have the reverse 
convention (IBM for example) which implies that you must swap the bytes in 
each pair. Often there is a flag on the tape read routine which will handle 
this problem. It may even be possible that some machines interpret the bit 
order in the bytes backwards although I've never seen this. 

Once you have the experiment file records stashed somewhere (on disk or 
another tape) with the bytes in the proper order; the parameters of the 
experiment and the counts can be decoded as described below. 


3 EXPERIMENT. DATA STRUCTURE 

Some knowledge of the type of data obtained by the UVSP may be helpful in 
understanding how the data is stored and how to extract it. Refer to 
Woodgate; et al< (Solar Physics; 65< p. 73; 1980) for some basic information. 

The UVSP experiment files use 512 byte records as a basic building block. 
This is the size of a physical disk record on many computers and is therefore 
the basic I/O unit for reading and writting data. Each 512 byte consists of 
256 16 bit words. The structure of a file is illustrated below: 


block number 


contents 


1 

2 

3 


n-»-3 

n+4 


file header block 

record header block for logical record 1 
data for logical record 1 
n blocks (last block may not 
be entirely filled) 

where n is defined in record header 
n is the same for all logical records 

record header for logical record 2 
data for logical record 2 


3 




The first block of each file is an experiment header which contains 
information about that experiment including a unique experiment number (the 
experiment numbers are strictly chrono 1 og ica 1 with no known exceptions). 
Table I shows all the items in this file header. Item 20 is the number of 
logical records in the file. Note that not all of the 256 words are used. 


A logical record (not to be confused with the tape records discussed 
above; consists of 2 or more blocks. All logical records for a given file 
have the same length. The first block in the logical record is a record 
header. The information format of a record header is shown in Table II. Note 
that the first two items are fixed values which can be used to verify that a 
given block is a record header. Following this is the actual data. Each data 
value is a 16 bit number representing the UVSP count. The number of blocks in 
a logical data record is always an integer. It can be computed from either 
the file header or the record header. The product of file header items 96 and 
99 represents the number of data points in the record. This numb er rounded up 
to the next integer multiple of 256 can be used to obtain the number of blocks 
used for the data. Adding 1 for the record header results in the total blocks 
per record. The same dimension values are also contained in the record header 
in items 3 and 4. 


Each logical record contains the photons counted by a particular UVSP 
detector in c hr ana log i ca 1 order. The detector number and the time for the 
first data point are in the header. If more than one detector is on. their 
records are consecutive. Often, the experiment data for a given detector is 
split up into many logical records. If. for example, there are 3 detectors 
turned on. then the data for a given detector is contained in every third 
'logical record. This detector nesting order is always consistent within a 
given file and directly corresponds to the nesting during the experiment. 


The structure and length of the data records is related to the lengths 
and nesting orders of the mechanism loops. The following list shows where to 
find these in the file header: 


mechanism 

parameter 

location in 

x raster 

# of values 

142 


increment 

75 

y raster 

# of values 

143 


increment 

76 

wave leng th 

# of values 

78 


increment 

79 

polar ime ter 

# of va lues 

84 


increment 

85 
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The nesting order is available in items 56 through 59. Once the order is 
knou>n< the data collected from all the records for a given detector can be 
considered a 5 dimensional array with the fifth dimension the - repeat count 
(the last repeat may not be complete because of termination by night, etc). 
The size of the first 4 dimensions is determined by the loop lengths and the 
nesting. The number of points in each record will be a multiple of some of 
these loop lengths. This can always be determined by the entries in the file 
header. but the rule used may be of some use. When generating these files, 
the program examined the first 2 nor.-trivial inner loops. If their product 
was greater than 127, they are used to define each record "array". If net. 
the next loop length is included until the total product is greater than 127 
and this becomes the record size. If the product never reaches 128. the 
repeat count is used. However, not all the repeats are necessarily used. 
They may be divided up among several records in order to keep the size 4096 
words or less. (This restriction does not apply to cases not using the repeat 
count). Any non-trivial dimensions not included in the record array will be 
implicit in the sequence of records for a given detector. The motivation for 
this scheme was to insure that data blocks are at least half full (to avoid 
wasted space) and to divide the data. into pieces that can usually fit into 
memory along with the analysis software. When this data is processed on the 
VAX. the first thing usually done is to clump ail the data in the file into 
one big 6 dimensional array (the sixth dimension is the detectors). In the 
future the data may also be distributed in this form which will greatly 
simplify loading it into machines that can memory map the entire file. 




VERSION • I AND EARLIER? 

DESCRIPTION REV. MARCH 12. 1981 

! RECORD HEADER SLOCK 

j WORD CONTENTS ' 

| I 

I 1 144444 (OCTAL! SYHCH PATTERN 

J 2 144444 

3 DIMENSION 1 1 

4 DIMENSION '2 

I 5 64077 (OCTAL! INTEGER CODE (I.E.. DATA IS INTEGER TYPE 1 

! 6 # OF OATA POINTS (NOT INCLUDING EMPTY LOOPS! 

! 7. OETECTOR # 

13 RECORD • 

20-21 30 BIT CLOCK FOR FIRST DATA POINT IN RECORD (1*41 

22 YEAR (E.C. 80! 

23 MONTH # 

24 DAY OF MONTH 

25 HOUR > 

26 MINUTE 

27 SECOND -L • 

28 MS 

29 OOY 

48-79 STATUS MONITOR AT START OF REC (CHANS. 63.0-30! 

00 # OF SERVO ADJUSTMENTS IN THIS RECORD 

i 81 TOTAL SERVO SHIFT IN STEPS 

.100 • OF ACTUAL DATA POINTS FOUNO 

101-102 MEAN TIME BETWEEN DATA POINTS IN INNER LOOP IN UNITS OF 16 MS (FL! 
, . 103.104 MAXIMUM TIME GAP FOUND (FL PT1 

105-106 MINIMUM 

. 107-108 STANOARD ’-DEVIATION (SAMPLE) (FL PT) 

109 * OF INNER LOOPS 

.110 COUNT OF NEXT LOOP 

1 1 1 COUNT OF 'NEXT LOOP 

112 COUNT OF NEXT LOOP 

113 COUNT OF EXECUTIONS IN THIS RECORO (OFTEN 0) 

1 • U4-11S MEAN TIME BETWEEN INNER LOOPS 

‘ - 116-117 MEAN TIME' BETWEEN 2ND LOOPS 

i ' 118-119 MEAN TIME^BETWEEN 3RD LOOPS 

120-121 MEAN T I MEf BETWEEN OUTER LOOPS 
122-123 MEAN TIME! BETWEEN EXECUTIONS • 
i . 124-125 MAX TIME BETWEEN INNER LOOPS 
I '126-127 MAX FOR NEXT 

1 '128-129 MAX FOR NEXT 

130-131 MAX FOR OUTER 
,132-133 MAX FOR EXECUTIONS 
.' '134-135 MIN TIME BETWEEN INNER LOOPS 
. ‘136-137 MIN FOR NEXT 
il38-139 MIN FOR NEXT 
' : 140-141 MIN FOR OUTER 

.142-143 MIN FOR EXECUTIONS 
I ‘144-145 STANDARD DEVIATION FOR INNER LOOP MEAN TIME 
‘146-147 ■ v * NEXT LOOP . 

;i 48-1 49 • V * * NEXT LOOP 

■150-151 • •' * • OUTER LOOP 

■152-153 *•?..* * EXECUTIONS 

• .159 MINOR FRAME 

l 60-223 DMA AT START OF RECORO (7700-7777) (MAY INCLUOE 
" !. . INFO. FROM PREVIOUS EXPERIMENT) 

224-255 STATUS MONITOR AT START OF RECORD (CHANS. 31-62) 

I 

| NOTE - STATUS MONITOR OATA IN TWO SEGMENTS 


.* 





VERSION * 7 11/7/80 

DESCRIPTION REV. MARCH 12. 1981 

EXPERIMENT HEADER BLOCK 


WORD CONTENTS '. 

1 *4 

2 RE-FORMATTER VERSION » 17) 

3 «S 

4 # OF CHAINED EXPS. OR £ IF NONE 

5 0 IF COMPLETE. 1 IF BEGINNING MISSING. 2 IF END MISSING 
10-13 START TIME! DAY .HR. MIN .SEC) 

14-17 STOP TIME 

20 NO. OF LOGICAL RECORDS 

21 NO. WORDS PER LOC.REC. 

22 STATION NO. . 

23 PITCH (ARC. SEC. *101 

24 YAW - ( .* * ‘ ) 

25 ROLL (DEC. *100) 

27 XCEN- RASTER X CENTER 

26 YCEN- RASTER Y CENTER 

29-30 TOTAL • OF DATA POINTS <1*41 
31-34 RAW FPSS WORDS 

35-36 STARTING MAJOR FRAME (1*4) 

37 * MINOR 

38-39 ENDING MAJOR FRAME (1*4) 

40 * MINOR 

49 YEARIE.C. 19B0) 

52 NO. OF DETECTORS IN INTERVAL 1 

53 NO. OF. DETECTORS in INTERVAL 2 

55 DETECTOR BALANCE FACTOR 

56 LOOP NEST COOE FOR POLAR I METER! 0- INNER) 

57 .... RA ST£R X 

SB ..... RASTER Y 

59 * * • WLO 

60 EXPERIMENT.’ TYPE 

61 NO. OF DETECTORS USED I 

62 SCI • 

63 DETECTOR WORD! 8 BITS) 

.64 POLR. STATUS (0- OUT. 1- A-IN. 2-B-IN1 

: 65 SLIT # 

67-68 STARTING WLD STEP *( I NTEGER*4 ) ! 

69-70 ENDING 

73-74 CATE TIME (SEC. > (FL.PT.) 

75 RASTER DX C 

76 RASTER DY v 

78 NO. OF WLD. '.STEPS 

79 WLD STEP SIZE(0W1 

82 REPEAT COUNT!* OF TIMES TO DO EXP.) 

83 RASTER SIZEINX-NY) 

84 NO. OF POLR. POSITIONS 

BS POLR. STEP SIZE ' 

86 THRESHOLD LEVEL ( DMA 7720) 

87 SLIT LETTER CODE 

88 CAL. WLD STEP 

^89 TACHOMETER.! SERVO) INTERVAL (*I FOR NO SERVO) 

90 CAL. LOOP CODE (4-SERVO) 

97 EXPERIMENT.NO. 

98 FIRST DIMENSION OF DATA ARRAY 

99 SECOND DIMENSION ' 

103-117 (FD FILES) ERROR SUMMARY 
135-105 (PB FILES) WLD POSITION AT IMAX 
107-121 (PB FILES) ERROR SUMMARY 


“W'/J i 


134 

MOST RECENT FLARE X COORD. 

135 

MOST RECENT FLARE V COORD. 

138 

1 ST 

DETECTOR # 

139 

2ND 

• 

1 40 

3RD 

• 

141 

4TH 

• 

142 

NO. 

RASTER X VALUE S( NX > 

143 

NO. 

RASTER Y VALUES! NY ) 

144 

CALIBRATION INTERVAL! -0 IF 


145-158: EXP. RESULTS FROM DKA( INCLUDE LHAX, WORDS 105-6) 


14S 

IMIN/2 

146 

MIN X 

147 

MIN Y 

ua 

IMAX/2 

149 

MAX X 

150 

MAX Y 

161 

BLUE VEL. 

152 

BLUE INT./2 

153 

BLUE X 

154 

BLUE Y 

155 

RED VEL. 

156 

RED INT./2 

157 

RED X 

150 

RED Y 


159-174: START- OF -EX PER I ME NT DATA 

159 SCI WORD 

160 LIST INSTRUCTION REG. (OR) 

161 LIST PROGRAM CTR.(JR) , • 

162 OBS. LIST SEOUENCE I JR ) 

163-71 OBSERVING LIST (PARAMETER BLOCK) 

172 EXP. NO. 

173 XCEN 

174 YCEN 

175 WLD SCAN TYPEd-ABS. 2-G8L OFFSET, 3-LCL OFFSET) 


I 

| 

I 


ORIGINAL PAGE fS 
OF POOR QUALITY 
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